Funktionreferenz

_Date_Time_SetSystemTimeAdjustment

Beschreibung anzeigen in

Aktiviert oder Deaktiviert die periodische Zeitanpassung der Systemuhrzeit

#include <Date.au3>
_Date_Time_SetSystemTimeAdjustment ( $iAdjustment, $bDisabled )

Parameter

$iAdjustment Die Anzahl an 100 Nanosekunden Einheiten die bei jedem Interrupt zur Systemuhrzeit addiert werden soll, wenn die periodische Zeitanpassung aktiviert ist.
$bDisabled True gibt an, dass die periodische Zeitanpassung deaktiviert werden soll. Das System aktualisiert die Uhrzeit mit seinen internen Mechanismen. Dieser interne Mechanismus kann merkliche Sprünge in der Systemzeit erzeugen, wenn eine Zeitanpassung durchgeführt wird. False gibt an, dass die periodische Zeitanpassung aktiviert werden soll und anstatt des internen Mechanismus die Anpassungen vornimmt.
Das System wird den Wert von $iAdjustment bei jedem Interrupt zur Systemuhrzeit addieren.

Rückgabewert

Erfolg: True
Fehler: False

Verwandte Funktionen

_Date_Time_GetSystemTimeAdjustment

Beispiel

#include <Date.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIError.au3>

; Unter Vista muß die Windows API "SetSystemTimeAdjustment" möglicherweise von der Systemsicherheit ausgenommen werden

Example()

Func Example()
    Local $aInfo

    ; Öffnen des Zeitdialogs, um die Änderungen zu verfolgen ;)
    Run("RunDll32.exe shell32.dll,Control_RunDLL timedate.cpl")
    WinWaitActive("[CLASS:#32770]")

    ; Ermittelt die aktuellen Zeiteinstellungen
    $aInfo = _Date_Time_GetSystemTimeAdjustment()

    ; Verlangsame die Systemuhr
    If Not _Date_Time_SetSystemTimeAdjustment($aInfo[1] / 10, False) Then
        MsgBox($MB_SYSTEMMODAL, "Fehler", "Die Systemzeit kann nicht gebremst werden" & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
        Exit
    EndIf
    MsgBox($MB_SYSTEMMODAL, "Information", "Bremse die Zeit", 2)
    Sleep(5000)

    ; Beschleunige die Zeit
    If Not _Date_Time_SetSystemTimeAdjustment($aInfo[1] * 10, False) Then
        MsgBox($MB_SYSTEMMODAL, "Fehler", "Die Systemzeit kann nicht beschleunigt werden" & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
    EndIf
    MsgBox($MB_SYSTEMMODAL, "Information", "Gib Gas", 2)

    Sleep(5000)

    ; Rücksetzen der Zeiteinstellungen
    If Not _Date_Time_SetSystemTimeAdjustment($aInfo[1], True) Then
        MsgBox($MB_SYSTEMMODAL, "Fehler", "Die Systemzeit kann nicht wiederhergestellt werden" & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
    Else
        MsgBox($MB_SYSTEMMODAL, "Information", "Systemzeit wiederhergestellt")
    EndIf
EndFunc   ;==>Example