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

* fixed longbool returns for api calls

Browse Source
This commit is contained in:
peter 1998-11-16 15:48:53 +00:00
parent 78546bab43
commit b0abdd9de6
2 changed files with 19 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
rtl/win32/dos.pp
View File

@ -242,7 +242,7 @@ end;
external 'kernel32' name 'GetVersion'; external 'kernel32' name 'GetVersion';
procedure GetLocalTime(var t : TSystemTime); procedure GetLocalTime(var t : TSystemTime);
external 'kernel32' name 'GetLocalTime'; external 'kernel32' name 'GetLocalTime';
function SetLocalTime(const t : TSystemTime) : boolean; function SetLocalTime(const t : TSystemTime) : longbool;
external 'kernel32' name 'SetLocalTime'; external 'kernel32' name 'SetLocalTime';
function dosversion : word; function dosversion : word;
@ -335,9 +335,9 @@ End;
lpProcessAttributes, lpThreadAttributes: PSecurityAttributes; lpProcessAttributes, lpThreadAttributes: PSecurityAttributes;
bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer; bInheritHandles: BOOL; dwCreationFlags: DWORD; lpEnvironment: Pointer;
lpCurrentDirectory: PChar; const lpStartupInfo: TStartupInfo; lpCurrentDirectory: PChar; const lpStartupInfo: TStartupInfo;
var lpProcessInformation: TProcessInformation): boolean; var lpProcessInformation: TProcessInformation): longbool;
external 'kernel32' name 'CreateProcessA'; external 'kernel32' name 'CreateProcessA';
function getExitCodeProcess(h:THandle;var code:longint):boolean; function getExitCodeProcess(h:THandle;var code:longint):longbool;
external 'kernel32' name 'GetExitCodeProcess'; external 'kernel32' name 'GetExitCodeProcess';
function WaitForSingleObject(hHandle: THandle; dwMilliseconds: DWORD): DWORD; function WaitForSingleObject(hHandle: THandle; dwMilliseconds: DWORD): DWORD;
external 'kernel32' name 'WaitForSingleObject'; external 'kernel32' name 'WaitForSingleObject';
@ -416,7 +416,7 @@ end;
******************************************************************************} ******************************************************************************}
function GetDiskFreeSpace(drive:pchar;var sector_cluster,bytes_sector, function GetDiskFreeSpace(drive:pchar;var sector_cluster,bytes_sector,
freeclusters,totalclusters:longint):boolean; freeclusters,totalclusters:longint):longbool;
external 'kernel32' name 'GetDiskFreeSpaceA'; external 'kernel32' name 'GetDiskFreeSpaceA';
function diskfree(drive : byte) : longint; function diskfree(drive : byte) : longint;
@ -477,9 +477,9 @@ end;
function FindFirstFile (lpFileName: PChar; var lpFindFileData: TWIN32FindData): THandle; function FindFirstFile (lpFileName: PChar; var lpFindFileData: TWIN32FindData): THandle;
external 'kernel32' name 'FindFirstFileA'; external 'kernel32' name 'FindFirstFileA';
function FindNextFile (hFindFile: THandle; var lpFindFileData: TWIN32FindData): Boolean; function FindNextFile (hFindFile: THandle; var lpFindFileData: TWIN32FindData): LongBool;
external 'kernel32' name 'FindNextFileA'; external 'kernel32' name 'FindNextFileA';
function FindCloseFile (hFindFile: THandle): Boolean; function FindCloseFile (hFindFile: THandle): LongBool;
external 'kernel32' name 'FindClose'; external 'kernel32' name 'FindClose';
Procedure StringToPchar (Var S : String); Procedure StringToPchar (Var S : String);
@ -492,8 +492,6 @@ end;
procedure FindMatch(var f:searchrec); procedure FindMatch(var f:searchrec);
Var
TheAttr : Longint;
begin begin
{ Find file with correct attribute } { Find file with correct attribute }
While (F.W32FindData.dwFileAttributes and F.ExcludeAttr)<>0 do While (F.W32FindData.dwFileAttributes and F.ExcludeAttr)<>0 do
@ -562,11 +560,11 @@ end;
--- File --- --- File ---
******************************************************************************} ******************************************************************************}
function GetFileTime(h : longint;creation,lastaccess,lastwrite : PFileTime) : boolean; function GetFileTime(h : longint;creation,lastaccess,lastwrite : PFileTime) : longbool;
external 'kernel32' name 'GetFileTime'; external 'kernel32' name 'GetFileTime';
function SetFileTime(h : longint;creation,lastaccess,lastwrite : PFileTime) : boolean; function SetFileTime(h : longint;creation,lastaccess,lastwrite : PFileTime) : longbool;
external 'kernel32' name 'SetFileTime'; external 'kernel32' name 'SetFileTime';
function SetFileAttributes(lpFileName : pchar;dwFileAttributes : longint) : boolean; function SetFileAttributes(lpFileName : pchar;dwFileAttributes : longint) : longbool;
external 'kernel32' name 'SetFileAttributesA'; external 'kernel32' name 'SetFileAttributesA';
function GetFileAttributes(lpFileName : pchar) : longint; function GetFileAttributes(lpFileName : pchar) : longint;
external 'kernel32' name 'GetFileAttributesA'; external 'kernel32' name 'GetFileAttributesA';
@ -788,7 +786,7 @@ end;
function GetEnvironmentStrings : pchar; function GetEnvironmentStrings : pchar;
external 'kernel32' name 'GetEnvironmentStringsA'; external 'kernel32' name 'GetEnvironmentStringsA';
function FreeEnvironmentStrings(p : pchar) : boolean; function FreeEnvironmentStrings(p : pchar) : longbool;
external 'kernel32' name 'FreeEnvironmentStringsA'; external 'kernel32' name 'FreeEnvironmentStringsA';
function envcount : longint; function envcount : longint;
@ -881,7 +879,10 @@ End;
end. end.
{ {
$Log$ $Log$
Revision 1.12 1998-10-27 10:55:55 michael Revision 1.13 1998-11-16 15:48:53 peter
* fixed longbool returns for api calls
Revision 1.12 1998/10/27 10:55:55 michael
* environment vars are case insensitive under WinNT/DOS * environment vars are case insensitive under WinNT/DOS
Revision 1.11 1998/10/22 15:32:38 pierre Revision 1.11 1998/10/22 15:32:38 pierre

7
rtl/win32/syswin32.pp
View File

@ -289,7 +289,7 @@ end;
function CreateFile(name : pointer;access,sharing : longint; function CreateFile(name : pointer;access,sharing : longint;
security : pointer;how,attr,template : longint) : longint; security : pointer;how,attr,template : longint) : longint;
external 'kernel32' name 'CreateFileA'; external 'kernel32' name 'CreateFileA';
function SetEndOfFile(h : longint) : boolean; function SetEndOfFile(h : longint) : longbool;
external 'kernel32' name 'SetEndOfFile'; external 'kernel32' name 'SetEndOfFile';
function GetFileType(Handle:DWORD):DWord; function GetFileType(Handle:DWORD):DWord;
external 'kernel32' name 'GetFileType'; external 'kernel32' name 'GetFileType';
@ -757,7 +757,10 @@ end.
{ {
$Log$ $Log$
Revision 1.23 1998-11-16 14:14:58 pierre Revision 1.24 1998-11-16 15:48:54 peter
* fixed longbool returns for api calls
Revision 1.23 1998/11/16 14:14:58 pierre
* changed getdir(byte,string) to getdir(byte,shortstring) * changed getdir(byte,string) to getdir(byte,shortstring)
Revision 1.22 1998/10/27 15:07:16 florian Revision 1.22 1998/10/27 15:07:16 florian