Setzt die lokale Zeit und Datum
#include <Date.au3>
_Date_Time_SetLocalTime ( $tSYSTEMTIME )
| $tSYSTEMTIME | Einer $tagSYSTEMTIME Struktur, die die neue lokale Zeit und Datum beinhaltet oder einen Pointer zu dieser |
| Erfolg: | True |
| Fehler: | False |
Die _Date_Time_SetLocalTime() Function aktiviert die SE_SYSTEMTIME_NAME Rechte, bevor die lokale Zeit geändert wird
$tagSYSTEMTIME, _Date_Time_GetLocalTime
#include "Extras\HelpFileInternals.au3"
#include <Date.au3>
#include <GUIConstantsEx.au3>
#include <MsgBoxConstants.au3>
#include <WinAPIError.au3>
#include <WindowsStylesConstants.au3>
; Unter und über Vista muß die Windows API "SetLocalTime" möglicherweise von der Systemsicherheit ausgenommen werden
Example()
Func Example()
; Erstellt die GUI
GUICreate("Datum Zeit: Setzt und ermittelt die lokale Zeit (v" & @AutoItVersion & ")", 400, 300)
_MemoCreate(2, 2, 396, 296, $WS_VSCROLL)
GUISetState(@SW_SHOW)
; Anzeigen der momentan eingestellten lokalen Zeit
Local $tCur = _Date_Time_GetLocalTime()
_MemoWrite("Aktuelle/s Zeit/Datum .: " & _Date_Time_SystemTimeToDateTimeStr($tCur))
; Setzt eine neue lokale Zeit
Local $tNew = _Date_Time_EncodeSystemTime(8, 19, @YEAR, 3, 10, 45)
If Not _Date_Time_SetLocalTime($tNew) Then
MsgBox($MB_SYSTEMMODAL, "Fehler", "Die Systemzeit kann nicht gesetzt werden" & @CRLF & @CRLF & _WinAPI_GetLastErrorMessage())
Exit
EndIf
$tNew = _Date_Time_GetLocalTime()
_MemoWrite("Neue/s Zeit/Datum .....: " & _Date_Time_SystemTimeToDateTimeStr($tNew))
; Zurücksetzen der lokalen Zeit
_Date_Time_SetLocalTime($tCur)
; Anzeigen der momentan eingestellten lokalen Zeit
$tCur = _Date_Time_GetLocalTime()
_MemoWrite("Aktuelle/s Zeit/Datum .: " & _Date_Time_SystemTimeToDateTimeStr($tCur))
; Die Schleife wiederholt sich, bis der Benutzer die Beenden-Aktion der GUI auslöst.
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc ;==>Example