SetSystemTime-Funktion Diese Funktion setzt die Systemzeit.
Betriebssystem:  Win95, Win98, WinNT 3.1, Win2000, WinME	Views:  414

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