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

* Some more delphi compatible kernelfunc headers for JCL.

Browse Source
This commit is contained in:
marco 2000-03-19 20:30:27 +00:00
parent ebe9dafe19
commit 4b4b9a7ba7
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
rtl/win32/windows.pp
View File

@ -64,10 +64,21 @@ unit windows;
procedure LeaveCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'LeaveCriticalSection';
procedure DeleteCriticalSection(var CriticalSection : TRTLCriticalSection); external 'kernel32' name 'DeleteCriticalSection';
{MvdV: JCL templates}
function GetTimeZoneInformation(var TimeZoneInformation:TTimeZoneInformation):DWORD; external 'kernel32' name 'GetTimeZoneInformation';
function FileTimeToLocalFileTime(const lpFileTime:TFILETIME; var LocalFileTime :TFILETIME):WINBOOL; external 'kernel32' name 'FileTimeToLocalFileTime';
function FileTimeToSystemTime(const lpFileTime:TFILETIME; var lpSystemTime:TSYSTEMTIME):WINBOOL; external 'kernel32' name 'FileTimeToSystemTime';
function DosDateTimeToFileTime(wFatDate:WORD; wFatTime:WORD; var lpFileTime:tFILETIME):WINBOOL; external 'kernel32' name 'DosDateTimeToFileTime';
function SystemTimeToFileTime(const lSystemTime:tSYSTEMTIME;var FileTime:tFILETIME):WINBOOL;external 'kernel32' name 'SystemTimeToFileTime';
end.
{
$Log$
Revision 1.7 2000-02-09 16:59:35 peter
Revision 1.8 2000-03-19 20:30:27 marco
* Some more delphi compatible kernelfunc headers for JCL.
Revision 1.7 2000/02/09 16:59:35 peter
* truncated log
Revision 1.6 2000/01/07 16:41:53 daniel
@ -79,4 +90,4 @@ end.
Revision 1.4 1999/09/16 13:38:21 peter
* windows unit include moved to wininc/
}
}