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

* kernel32 changed to kernel32.dll

Browse Source
This commit is contained in:
michael 1999-05-05 08:20:12 +00:00
parent 611a4b04b6
commit ee52c873e7
1 changed files with 21 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
compiler/dmisc.pas
View File

@ -158,15 +158,15 @@ uses strings,globals;
******************************************************************************} ******************************************************************************}
function GetLastError : DWORD; function GetLastError : DWORD;
external 'kernel32' name 'GetLastError'; external 'Kernel32.dll' name 'GetLastError';
function FileTimeToDosDateTime(const ft :TFileTime;var data,time : word) : boolean; function FileTimeToDosDateTime(const ft :TFileTime;var data,time : word) : boolean;
external 'kernel32' name 'FileTimeToDosDateTime'; external 'Kernel32.dll' name 'FileTimeToDosDateTime';
function DosDateTimeToFileTime(date,time : word;var ft :TFileTime) : boolean; function DosDateTimeToFileTime(date,time : word;var ft :TFileTime) : boolean;
external 'kernel32' name 'DosDateTimeToFileTime'; external 'Kernel32.dll' name 'DosDateTimeToFileTime';
function FileTimeToLocalFileTime(const ft : TFileTime;var lft : TFileTime) : boolean; function FileTimeToLocalFileTime(const ft : TFileTime;var lft : TFileTime) : boolean;
external 'kernel32' name 'FileTimeToLocalFileTime'; external 'Kernel32.dll' name 'FileTimeToLocalFileTime';
function LocalFileTimeToFileTime(const lft : TFileTime;var ft : TFileTime) : boolean; function LocalFileTimeToFileTime(const lft : TFileTime;var ft : TFileTime) : boolean;
external 'kernel32' name 'LocalFileTimeToFileTime'; external 'Kernel32.dll' name 'LocalFileTimeToFileTime';
type type
Longrec=packed record Longrec=packed record
@ -229,11 +229,11 @@ end;
******************************************************************************} ******************************************************************************}
function GetVersion : longint; function GetVersion : longint;
external 'kernel32' name 'GetVersion'; external 'Kernel32.dll' name 'GetVersion';
procedure GetLocalTime(var t : TSystemTime); procedure GetLocalTime(var t : TSystemTime);
external 'kernel32' name 'GetLocalTime'; external 'Kernel32.dll' name 'GetLocalTime';
function SetLocalTime(const t : TSystemTime) : boolean; function SetLocalTime(const t : TSystemTime) : boolean;
external 'kernel32' name 'SetLocalTime'; external 'Kernel32.dll' name 'SetLocalTime';
function dosversion : word; function dosversion : word;
begin begin
@ -448,11 +448,11 @@ end;
{ Needed kernel calls } { Needed kernel calls }
function FindFirstFile (lpFileName: PChar; var lpFindFileData: TWIN32FindData): THandle; function FindFirstFile (lpFileName: PChar; var lpFindFileData: TWIN32FindData): THandle;
external 'kernel32' name 'FindFirstFileA'; external 'Kernel32.dll' name 'FindFirstFileA';
function FindNextFile (hFindFile: THandle; var lpFindFileData: TWIN32FindData): Boolean; function FindNextFile (hFindFile: THandle; var lpFindFileData: TWIN32FindData): Boolean;
external 'kernel32' name 'FindNextFileA'; external 'Kernel32.dll' name 'FindNextFileA';
function FindCloseFile (hFindFile: THandle): Boolean; function FindCloseFile (hFindFile: THandle): Boolean;
external 'kernel32' name 'FindClose'; external 'Kernel32.dll' name 'FindClose';
Procedure StringToPchar (Var S : String); Procedure StringToPchar (Var S : String);
Var L : Longint; Var L : Longint;
@ -535,13 +535,13 @@ end;
******************************************************************************} ******************************************************************************}
function GetFileTime(h : longint;creation,lastaccess,lastwrite : PFileTime) : boolean; function GetFileTime(h : longint;creation,lastaccess,lastwrite : PFileTime) : boolean;
external 'kernel32' name 'GetFileTime'; external 'Kernel32.dll' name 'GetFileTime';
function SetFileTime(h : longint;creation,lastaccess,lastwrite : PFileTime) : boolean; function SetFileTime(h : longint;creation,lastaccess,lastwrite : PFileTime) : boolean;
external 'kernel32' name 'SetFileTime'; external 'Kernel32.dll' name 'SetFileTime';
function SetFileAttributes(lpFileName : pchar;dwFileAttributes : longint) : boolean; function SetFileAttributes(lpFileName : pchar;dwFileAttributes : longint) : boolean;
external 'kernel32' name 'SetFileAttributesA'; external 'Kernel32.dll' name 'SetFileAttributesA';
function GetFileAttributes(lpFileName : pchar) : longint; function GetFileAttributes(lpFileName : pchar) : longint;
external 'kernel32' name 'GetFileAttributesA'; external 'Kernel32.dll' name 'GetFileAttributesA';
procedure fsplit(path : pathstr;var dir : dirstr;var name : namestr;var ext : extstr); procedure fsplit(path : pathstr;var dir : dirstr;var name : namestr;var ext : extstr);
var var
@ -754,9 +754,9 @@ end;
} }
function GetEnvironmentStrings : pchar; function GetEnvironmentStrings : pchar;
external 'kernel32' name 'GetEnvironmentStringsA'; external 'Kernel32.dll' name 'GetEnvironmentStringsA';
function FreeEnvironmentStrings(p : pchar) : boolean; function FreeEnvironmentStrings(p : pchar) : boolean;
external 'kernel32' name 'FreeEnvironmentStringsA'; external 'Kernel32.dll' name 'FreeEnvironmentStringsA';
function envcount : longint; function envcount : longint;
var var
@ -848,7 +848,10 @@ End;
end. end.
{ {
$Log$ $Log$
Revision 1.2 1999-05-04 21:44:41 florian Revision 1.3 1999-05-05 08:20:12 michael
* kernel32 changed to kernel32.dll
Revision 1.2 1999/05/04 21:44:41 florian
* changes to compile it with Delphi 4.0 * changes to compile it with Delphi 4.0
Revision 1.1 1998/09/18 16:03:38 florian Revision 1.1 1998/09/18 16:03:38 florian