Wie kann ich Systemzeit und -datum ändern?

Zum Ermitteln von Sytemdatum und -zeit gibt es die Windows-API Funktion GetSystemTime oder einfacher die Delphi-Funktionen "Date", "Time" und "Now".

Ändern kann man diese Daten mit der API-Funktion SetSystemTime. In diesem Beispiel wird das Datum auf den 19.08.1980 gesetzt und die Uhrzeit auf 08:19:10:000 h:

var TimeStruct : TSystemTime;

begin
  TimeStruct.wYear := 1980;
  TimeStruct.wMonth := 8;
  TimeStruct.wDay := 19;
  TimeStruct.wHour := 8;
  TimeStruct.wMinute := 19;
  TimeStruct.wSecond := 10;
  TimeStruct.wMilliSeconds := 0;
  if SetSystemTime(TimeStruct) then begin
    ShowMessage('Yippieh!');
  end;
end;

siehe auch:

Wie kann ich die aktuelle Zeitzone des Betriebssystems ermitteln?

Delphi FAQ