* getsystemtimeasfiletime

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
 
-}
+}

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