diff --git a/programs/develop/fp/rtl/dynlibs.inc b/programs/develop/fp/rtl/dynlibs.inc new file mode 100644 index 0000000000..6e21df04ab --- /dev/null +++ b/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}