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

; Sous Vista, l'API Windows � SetSystemTimeAdjustment � peut �tre rejet�e en raison de la s�curit� du syst�me

Example()

Func Example()
    Local $aInfo

    ; Ouvre l'horloge pour voir un truc amusant
    Run("RunDll32.exe shell32.dll,Control_RunDLL timedate.cpl")
    WinWaitActive("[CLASS:#32770]")

    ; R�cup�re les r�glages de l'heure actuelle
    $aInfo = _Date_Time_GetSystemTimeAdjustment()

    ; Ralentit l'horloge
    If Not _Date_Time_SetSystemTimeAdjustment($aInfo[1] / 10, False) Then
        MsgBox($MB_SYSTEMMODAL, "Erreur", "L'horloge syst�me ne peut pas �tre RALENTIE." & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
        Exit
    EndIf
    MsgBox($MB_SYSTEMMODAL, "Information", "Ralentit l'horloge syst�me", 2)

    Sleep(5000)

    ; Acc�l�re l'horloge
    If Not _Date_Time_SetSystemTimeAdjustment($aInfo[1] * 10, False) Then
        MsgBox($MB_SYSTEMMODAL, "Erreur", "L'horloge syst�me ne peut pas �tre ACC�L�R�E." & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
    EndIf
    MsgBox($MB_SYSTEMMODAL, "Information", "Acc�l�ration de l'horloge syst�me", 2)

    Sleep(5000)

    ; R�initialise le r�glage de l'heure
    If Not _Date_Time_SetSystemTimeAdjustment($aInfo[1], True) Then
        MsgBox($MB_SYSTEMMODAL, "Erreur", "L'horloge syst�me ne peut pas �tre R�INITIALIS�E" & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
    Else
        MsgBox($MB_SYSTEMMODAL, "Information", "Horloge syst�me restaur�e")
    EndIf
EndFunc   ;==>Example