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

*arm/wince lib import corrected for Loadlibrary, GetProcAddress

Browse Source 
git-svn-id: trunk@2070 -
This commit is contained in:
oro06 2005-12-28 15:09:52 +00:00
parent 209cbd7227
commit c1ac14c0f3
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
rtl/win/sysos.inc
View File

@ -221,12 +221,10 @@ threadvar
stdcall;external KernelDLL name 'GetFileSize'; stdcall;external KernelDLL name 'GetFileSize';
function SetEndOfFile(h : thandle) : longbool; function SetEndOfFile(h : thandle) : longbool;
stdcall;external KernelDLL name 'SetEndOfFile'; stdcall;external KernelDLL name 'SetEndOfFile';
function LoadLibrary(lpLibFileName:pchar):THandle; stdcall; external KernelDLL name 'LoadLibraryA';
function FreeLibrary(hLibModule:THandle):ByteBool; stdcall; external KernelDLL name 'FreeLibrary'; function FreeLibrary(hLibModule:THandle):ByteBool; stdcall; external KernelDLL name 'FreeLibrary';
function GetProcAddress(hModule:THandle; lpProcName:pchar):pointer; stdcall; external KernelDLL name 'GetProcAddress';
{$ifndef WINCE} {$ifndef WINCE}
function LoadLibrary(lpLibFileName:pchar):THandle; stdcall; external KernelDLL name 'LoadLibraryA';
function GetFileType(Handle:thandle):DWord; function GetFileType(Handle:thandle):DWord;
stdcall;external KernelDLL name 'GetFileType'; stdcall;external KernelDLL name 'GetFileType';
function GetFileAttributes(p : pchar) : dword; function GetFileAttributes(p : pchar) : dword;
@ -239,6 +237,7 @@ threadvar
lpSecurityAttributes:PSECURITYATTRIBUTES; dwCreationDisposition:DWORD; lpSecurityAttributes:PSECURITYATTRIBUTES; dwCreationDisposition:DWORD;
dwFlagsAndAttributes:DWORD; hTemplateFile:DWORD):longint; dwFlagsAndAttributes:DWORD; hTemplateFile:DWORD):longint;
stdcall;external KernelDLL name 'CreateFileA'; stdcall;external KernelDLL name 'CreateFileA';
function GetProcAddress(hModule:THandle; lpProcName:pchar):pointer; stdcall; external KernelDLL name 'GetProcAddress';
{ Directory } { Directory }
function CreateDirectory(name : pointer;sec : pointer) : longbool; function CreateDirectory(name : pointer;sec : pointer) : longbool;
@ -249,6 +248,15 @@ threadvar
stdcall;external KernelDLL name 'SetCurrentDirectoryA'; stdcall;external KernelDLL name 'SetCurrentDirectoryA';
function GetCurrentDirectory(bufsize : longint;name : pchar) : longbool; function GetCurrentDirectory(bufsize : longint;name : pchar) : longbool;
stdcall;external KernelDLL name 'GetCurrentDirectoryA'; stdcall;external KernelDLL name 'GetCurrentDirectoryA';
{$else WINCE}
function LoadLibraryW(lpLibFileName:PWideChar):THandle; stdcall; external KernelDLL name 'LoadLibraryW';
function LoadLibrary(lpLibFileName:PChar):THandle;
var buf: array[0..MaxPathLen] of WideChar;
begin
AnsiToWideBuf(lpLibFileName, -1, buf, SizeOf(buf));
LoadLibrary:=LoadLibraryW(PWideChar(lpLibFileName));
end;
function GetProcAddress(hModule:THandle; lpProcName:pchar):pointer; stdcall; external KernelDLL name 'GetProcAddressA';
{$endif WINCE} {$endif WINCE}
var var