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

* fixed failures of previous merge

Browse Source 
git-svn-id: branches/fixes_2_0@1916 -
This commit is contained in:
florian 2005-12-10 18:03:47 +00:00
parent 88936f9a79
commit a64efc6742
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win32/sysos.inc
View File

@ -250,9 +250,9 @@ var
function GetCurrentDirectory(bufsize : longint;name : pchar) : longbool;
stdcall;external 'kernel32' name 'GetCurrentDirectoryA';
function LoadLibrary(lpLibFileName:pchar):THandle; stdcall; external KernelDLL name 'LoadLibraryA';
function FreeLibrary(hLibModule:THandle):ByteBool; stdcall; external KernelDLL name 'FreeLibrary';
function GetProcAddress(hModule:THandle; lpProcName:pchar):pointer; stdcall; external KernelDLL name 'GetProcAddress';
function LoadLibrary(lpLibFileName:pchar):THandle; stdcall; external 'kernel32' name 'LoadLibraryA';
function FreeLibrary(hLibModule:THandle):ByteBool; stdcall; external 'kernel32' name 'FreeLibrary';
function GetProcAddress(hModule:THandle; lpProcName:pchar):pointer; stdcall; external 'kernel32' name 'GetProcAddress';
var
SetFilePointerEx : function(hFile : THandle;
@ -264,7 +264,7 @@ var
hinstLib : THandle;
begin
SetFilePointerEx:=nil;
hinstLib:=LoadLibrary(KernelDLL);
hinstLib:=LoadLibrary('kernel32');
if hinstLib<>0 then
begin
pointer(SetFilePointerEx):=GetProcAddress(hinstLib,'SetFilePointerEx');