From 7c0764de5fa6e997d664afff2fd4bbd18246a822 Mon Sep 17 00:00:00 2001 From: marco Date: Sun, 8 Feb 2004 17:11:34 +0000 Subject: [PATCH] * getsystemtimeasfiletime --- rtl/win32/wininc/func.inc | 8 ++++++-- rtl/win32/wininc/redef.inc | 6 +++++- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/rtl/win32/wininc/func.inc b/rtl/win32/wininc/func.inc index ac8a690c2b..de043b5437 100644 --- a/rtl/win32/wininc/func.inc +++ b/rtl/win32/wininc/func.inc @@ -235,6 +235,7 @@ function SetVoiceThreshold(nVoice:DWORD; nNotes:DWORD):DWORD; external External_ {$endif Unknown_functions} function MulDiv(nNumber:longint; nNumerator:longint; nDenominator:longint):longint; external 'kernel32' name 'MulDiv'; procedure GetSystemTime(lpSystemTime:LPSYSTEMTIME); external 'kernel32' name 'GetSystemTime'; +procedure GetSystemTimeAsFileTime(lpSystemTimeAsFileTime:LPFILETIME); external 'kernel32' name 'GetSystemTimeAsFileTime'; function SetSystemTime(lpSystemTime:LPSYSTEMTIME):WINBOOL; external 'kernel32' name 'SetSystemTime'; procedure GetLocalTime(lpSystemTime:LPSYSTEMTIME); external 'kernel32' name 'GetLocalTime'; function SetLocalTime(lpSystemTime:LPSYSTEMTIME):WINBOOL; external 'kernel32' name 'SetLocalTime'; @@ -2331,7 +2332,10 @@ end; { $Log$ - Revision 1.18 2003-01-02 22:07:00 peter + Revision 1.19 2004-02-08 17:11:34 marco + * getsystemtimeasfiletime + + Revision 1.18 2003/01/02 22:07:00 peter * missing items Revision 1.17 2002/12/27 18:13:38 peter @@ -2383,4 +2387,4 @@ end; Revision 1.1.2.5 2002/01/19 11:48:20 peter * more functions added from webbugs -} \ No newline at end of file +} diff --git a/rtl/win32/wininc/redef.inc b/rtl/win32/wininc/redef.inc index f3e3a05f2d..97b8dd662a 100644 --- a/rtl/win32/wininc/redef.inc +++ b/rtl/win32/wininc/redef.inc @@ -542,6 +542,7 @@ function GetStringTypeW(dwInfoType: DWORD; const lpSrcStr: WCHAR; cchSrc: BOOL; function GetSystemPaletteEntries(DC: HDC; StartIndex, NumEntries: UINT; var PaletteEntries): UINT; external 'gdi32' name 'GetSystemPaletteEntries'; function GetSystemPowerStatus(var lpSystemPowerStatus: TSystemPowerStatus): BOOL;external 'kernel32' name 'GetSystemPowerStatus'; function GetSystemTimeAdjustment(var lpTimeAdjustment, lpTimeIncrement: DWORD; var lpTimeAdjustmentDisabled: BOOL): BOOL; external 'kernel32' name 'GetSystemTimeAdjustment'; +procedure GetSystemTimeAsFileTime(var lpSystemTimeAsFileTime:TFILETIME); external 'kernel32' name 'GetSystemTimeAsFileTime'; function GetTabbedTextExtent(hDC: HDC; lpString: PChar; nCount, nTabPositions: Integer; var lpnTabStopPositions): DWORD;external 'user32' name 'GetTabbedTextExtentA'; function GetTabbedTextExtentA(hDC: HDC; lpString: LPCSTR; nCount, nTabPositions: Integer; var lpnTabStopPositions): DWORD; external 'user32' name 'GetTabbedTextExtentA'; function GetTabbedTextExtentW(hDC: HDC; lpString: LPWSTR; nCount, nTabPositions: Integer; var lpnTabStopPositions): DWORD; external 'user32' name 'GetTabbedTextExtentW'; @@ -1051,7 +1052,10 @@ end; { $Log$ - Revision 1.18 2004-02-07 00:21:10 marco + Revision 1.19 2004-02-08 17:13:11 marco + * getsystemtimeasfiletime + + Revision 1.18 2004/02/07 00:21:10 marco * small fix Revision 1.17 2004/01/19 19:29:11 michael