paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 20:49:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

* some delphi compat aliases added.

Browse Source
This commit is contained in:
marco 2004-05-04 17:14:52 +00:00
parent 29f1d7600f
commit f803e314b4
1 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/inc/dynlibs.pp
View File

@ -37,6 +37,11 @@ Function LoadLibrary(Name : AnsiString) : TLibHandle;
Function GetProcedureAddress(Lib : TlibHandle; ProcName : AnsiString) : Pointer;
Function UnloadLibrary(Lib : TLibHandle) : Boolean;
// Kylix/Delphi compability
Function FreeLibrary(Lib : TLibHandle) : Boolean;
Function GetProcAddress(Lib : TlibHandle; ProcName : AnsiString) : Pointer;
Implementation
{ ---------------------------------------------------------------------
@ -45,11 +50,26 @@ Implementation
{$i dynlibs.inc}
Function FreeLibrary(Lib : TLibHandle) : Boolean;
begin
result:=FreeLibrary(lib);
end;
Function GetProcAddress(Lib : TlibHandle; ProcName : AnsiString) : Pointer;
begin
Result:=GetProcAddress(Lib,Procname);
end;
end.
{
$Log$
Revision 1.2 2002-09-07 15:07:45 peter
Revision 1.3 2004-05-04 17:14:52 marco
* some delphi compat aliases added.
Revision 1.2 2002/09/07 15:07:45 peter
* old logs removed and tabs fixed
}