Die Funktion erwartet zwei Parameter, einen TDateTime Wert und einen Pointer auf einen _SYSTEMTIME:
Delphi-Quellcode:
var
lpSystemTime : _SYSTEMTIME;
begin
DateTimeToSystemTime(Now, lpSystemTime);
SetLocalTime(lpSystemTime);
end;
Beachte aber, dass der Benutzer auch die Berechtigung haben muss um die Systemzeit setzen zu dürfen (SE_SYSTEMTIME_NAME).