Systemzeit setzen Windows 7

[AJ_Oldendorf]

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

[Union]

Kannst Du denn die Systemzeit manuell ändern? Und unter welchem Kontext läuft die Anwendung?

[AJ_Oldendorf]

Klar, manuell ändern ist kein Problem.
Ich habe ein Benutzerkonto welches Administrator Rechte hat (gestartet wird die Anwendung aber NICHT mit "ausführen als Administrator...").

Grüße

[Luckie]

Zitat von AJ_Oldendorf:

unter XP und es läuft.

Weil du wahrscheinlich unter XP standardmäßig als Administrator arbeitest. Zum ändern der Systemzeit sind aber Administratorenrechte erforderlich, die du unter Windows 7 nicht hast. Also führe das Programm als Administrator aus.

[Bummi]

oder mit brcc32 administrator.rc aus dem Anhang eine administrator.RES erzeugen und
per {$R administrator.RES}
einbinden.

[AJ_Oldendorf]

@Luckie: Das habe ich mir schon gedacht. Wollte nur wissen ob es noch ein anderen Weg gibt?!

@Bummi: Werde ich mal testen, danke...

Bin gerne für weitere Vorschläge offen