Hallo,
laut diesem Beispiel
http://www.delphi-treff.de/tipps/sys...datum-aendern/ sollte ein setzen der Systemzeit unter Windows 7 kein Problem sein. ich habe folgendes auch getestet unter XP und es läuft.
Unter Windows 7 kommt die Meldung: GetLastError 1314, Dem Client fehlt ein Recht.
Ich habe in den lokalen Sicherheitsrichtilinien (->Lokale Richtlinien) von Windows aber beim Zuweisen von Benutzerrechten gesagt, dass Ändern der Systemzeit JEDER kann (habe auch die einzelnen Benutzer separat eingetragen). Geht trotzdem nicht.
Hat noch jemand eine Idee?
Hier zur Sicherheit nochmal der Code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
TimeStruct: TSystemTime;
begin
TimeStruct.wYear := 2011;
TimeStruct.wMonth := 10;
TimeStruct.wDay := 13;
TimeStruct.wHour := 12;
TimeStruct.wMinute := 28;
TimeStruct.wSecond := 0;
TimeStruct.wMilliSeconds := 0;
if SetLocalTime(TimeStruct) then
ShowMessage('Systemzeit wurde erfolgreich geändert!')
else
RaiselastOSError;
end;
Viele Grüße
Alex