paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Safeloadlibrary

Browse Source 
git-svn-id: trunk@7985 -
This commit is contained in:
marco 2007-07-09 08:07:42 +00:00
parent 245c551e2e
commit 9c45584938
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
rtl/inc/dynlibs.pas
View File

@ -33,6 +33,7 @@ interface
---------------------------------------------------------------------} ---------------------------------------------------------------------}
Function SafeLoadLibrary(Name : AnsiString) : TLibHandle;
Function LoadLibrary(Name : AnsiString) : TLibHandle; Function LoadLibrary(Name : AnsiString) : TLibHandle;
Function GetProcedureAddress(Lib : TlibHandle; ProcName : AnsiString) : Pointer; Function GetProcedureAddress(Lib : TlibHandle; ProcName : AnsiString) : Pointer;
Function UnloadLibrary(Lib : TLibHandle) : Boolean; Function UnloadLibrary(Lib : TLibHandle) : Boolean;
@ -65,4 +66,22 @@ begin
Result:=GetProcedureAddress(Lib,Procname); Result:=GetProcedureAddress(Lib,Procname);
end; end;
Function SafeLoadLibrary(Name : AnsiString) : TLibHandle;
{$ifdef i386}
var w : word;
{$endif}
Begin
{$ifdef i386}
w:=get8087cw;
{$endif}
result:=loadlibrary(name);
{$ifdef i386}
set8087cw(w);
{$endif}
End;
end. end.