/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} |