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

* stdcall for CreateFile

Browse Source
This commit is contained in:
peter 2003-12-04 20:52:41 +00:00
parent 255589e12e
commit ef2b767191
1 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/win32/system.pp
View File

@ -317,7 +317,8 @@ end;
stdcall;external 'kernel32' name 'GetFileSize'; stdcall;external 'kernel32' name 'GetFileSize';
function CreateFile(lpFileName:pchar; dwDesiredAccess:DWORD; dwShareMode:DWORD; function CreateFile(lpFileName:pchar; dwDesiredAccess:DWORD; dwShareMode:DWORD;
lpSecurityAttributes:PSECURITYATTRIBUTES; dwCreationDisposition:DWORD; lpSecurityAttributes:PSECURITYATTRIBUTES; dwCreationDisposition:DWORD;
dwFlagsAndAttributes:DWORD; hTemplateFile:DWORD):longint; external 'kernel32' name 'CreateFileA'; dwFlagsAndAttributes:DWORD; hTemplateFile:DWORD):longint;
stdcall;external 'kernel32' name 'CreateFileA';
function SetEndOfFile(h : longint) : longbool; function SetEndOfFile(h : longint) : longbool;
stdcall;external 'kernel32' name 'SetEndOfFile'; stdcall;external 'kernel32' name 'SetEndOfFile';
function GetFileType(Handle:DWORD):DWord; function GetFileType(Handle:DWORD):DWord;
@ -1539,7 +1540,10 @@ end.
{ {
$Log$ $Log$
Revision 1.49 2003-11-24 23:08:37 michael Revision 1.50 2003-12-04 20:52:41 peter
* stdcall for CreateFile
Revision 1.49 2003/11/24 23:08:37 michael
+ Redefined Fileopen so it corresponds to ascdef.inc definition + Redefined Fileopen so it corresponds to ascdef.inc definition
Revision 1.48 2003/11/03 09:42:28 marco Revision 1.48 2003/11/03 09:42:28 marco