Windows Uhr stellen

[H4ndy]

Probier mal das hier:

Delphi-Quellcode:

var 
  TimeStruct : TSystemTime;
begin
  TimeStruct.wYear:= ... ;
  TimeStruct.wMonth:= ... ;
  TimeStruct.wDay:= ... ;
  TimeStruct.wHour:= ... ;
  TimeStruct.wMinute:= ... ;
  TimeStruct.wSecond:= ... ;
  TimeStruct.wMilliSeconds:= ... ;

  if SetSystemTime(TimeStruct) then begin
    ShowMessage('Systemuhr wurde korrigiert')
  end else
    ShowMessage('Systemuhr konnte nicht geändert werden!');
end;