システムに周期間隔調節が施されているかどうかを調べます。
#Include <Date.au3>
_Date_Time_GetSystemTimeAdjustment()
パラメータ
なし。
返し値
次の形式の配列を返します。
注意
なし。
関連
_Date_Time_SetSystemTimeAdjustment
例
#include <Date.au3>
#include <WinAPI.au3>
; Vista では WindowsAPI "SetSystemTimeAdjustment" はシステムセキュリティによって拒否されることがある
_Main()
Func _Main()
Local $aInfo
; デモが観察できるよう時計を表示
Run("RunDll32.exe shell32.dll,Control_RunDLL timedate.cpl")
WinWaitActive("[CLASS:#32770]")
; 現在の時間調節値を取得
$aInfo = _Date_Time_GetSystemTimeAdjustment()
; 時計を遅らせる
If Not _Date_Time_SetSystemTimeAdjustment($aInfo[1] / 10, False) Then
MsgBox(4096, "Error", "System clock cannot be DOWN" & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
Exit
EndIf
MsgBox(4096, "Information", "Slowing down system clock", 2)
Sleep(5000)
; 時計を早くする
If Not _Date_Time_SetSystemTimeAdjustment($aInfo[1] * 10, False) Then
MsgBox(4096, "Error", "System clock cannot be UP" & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
EndIf
MsgBox(4096, "Information", "Speeding up system clock", 2)
Sleep(5000)
; 時間調整をリセット
If Not _Date_Time_SetSystemTimeAdjustment($aInfo[1], True) Then
MsgBox(4096, "Error", "System clock cannot be RESET" & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
Else
MsgBox(4096, "Information", "System clock restored")
EndIf
EndFunc ;==>_Main