Rubrik: Windows/System | 22.03.05 |
SetSystemTime-Funktion Diese Funktion setzt die Systemzeit. | ||
Betriebssystem: Win95, Win98, WinNT 3.1, Win2000, WinME | Views: 10.533 |
Deklaration:
Declare Function SetSystemTime Lib "kernel32.dll" ( _ lpSystemTime As SYSTEMTIME) As Long
Beschreibung:
Diese Funktion setzt die Systemzeit.
Parameter:
lpSystemTime | Erwartet eine SYSTEMTIME-Struktur, die mit den Zeitangaben der zu setzenden Systemzeit gefüllt ist. |
Rückgabewert:
Ist die Funktion erfolgreich, so wird ein Wert "ungleich 0" zurückgegeben, andernfalls"0". Für erweiterte Fehlerinformationen können Sie die GetLastErrror-Funktion aufrufen.
Beispiel:
Private Declare Function SetSystemTime Lib "kernel32.dll" ( _ lpSystemTime As SYSTEMTIME) As Long Private Declare Sub GetSystemTime Lib "kernel32.dll" (lpSystemTime As SYSTEMTIME) Private Type SYSTEMTIME wYear As Integer wMonth As Integer wDayOfWeek As Integer wDay As Integer wHour As Integer wMinute As Integer wSecond As Integer wMilliseconds As Integer End Type
' Systemzeit einstellen Private Sub Command1_Click() Dim Retval As Long, ST As SYSTEMTIME ' Aktuelle Zeit ermitteln Call GetSystemTime(ST) ' Zeit um eine Stunde vorstellen ST.wHour = ST.wHour + 1 ' Systemzeit setzen Retval = SetSystemTime(ST) End Sub