Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 775 → Rev 780

/programs/develop/fp/rtl/dynlibs.inc
0,0 → 1,31
{TODO}
 
{$ifdef readinterface}
 
 
type
TLibHandle = Longint;
 
const
NilHandle = 0;
 
 
{$else}
 
 
function LoadLibrary(Name: AnsiString): TLibHandle;
begin
Result := 0;
end;
 
function GetProcedureAddress(Lib: TLibHandle; ProcName: AnsiString): Pointer;
begin
Result := nil;
end;
 
function UnloadLibrary(Lib: TLibHandle): Boolean;
begin
Result := False
end;
 
{$endif}