Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. {TODO}
  2.  
  3. {$ifdef readinterface}
  4.  
  5.  
  6. type
  7.   TLibHandle = Longint;
  8.  
  9. const
  10.   NilHandle = 0;
  11.  
  12.  
  13. {$else}
  14.  
  15.  
  16. function LoadLibrary(Name: AnsiString): TLibHandle;
  17. begin
  18.   Result := 0;
  19. end;
  20.  
  21. function GetProcedureAddress(Lib: TLibHandle; ProcName: AnsiString): Pointer;
  22. begin
  23.   Result := nil;
  24. end;
  25.  
  26. function UnloadLibrary(Lib: TLibHandle): Boolean;
  27. begin
  28.   Result := False
  29. end;
  30.  
  31. {$endif}
  32.