Hi ,

wie kann ich die Uhrzeit und das Datum aus dem Internet auf die Systemzeit übertragen?
Also ich habe 2 Labels mit Uhrzeit und Datum. Wie stelle ich danach die Uhrzeit des Rechners?

Danke!

Chrissi91

Wo ist das Problem? Beim bekommen der Daten aus dem INet oder beim Setzen der Systemzeit?

Wenn es beim Setzen der Sytemzeit ist, hilft dir das bestimmt weiter:

zusammenfalten · markieren

Delphi-Quellcode:

procedure SetSystemTime(Year,Month,Day,Hour,Minute,Second,MilliSeconds: Cardinal);
var
 TimeStruct: TSystemTime;
begin
 TimeStruct.wYear := Year;
 TimeStruct.wMonth := Month;
 TimeStruct.wDay := Day;
 TimeStruct.wHour := Hour;
 TimeStruct.wMinute := Minute;
 TimeStruct.wSecond := Second;
 TimeStruct.wMilliSeconds := MilliSeconds;
 if not SetLocalTime(TimeStruct) then RaiselastOSError;
end;

Mit der API Funktion SetSystemTime. Bedenke aber dass in der Regel nur Administratoren das Recht haben selbige zu ändern. Eine Suche in der Delphipraxis sollte auch eingiges zu Tage fördern.

Danke ... Ich wolte nur die Systemzeit setzen.

Zitat von Chrissi91:

Danke ... Ich wolte nur die Systemzeit setzen.

Schon klar, hast du ja im ersten Posting geschrieben, nur braucht derjeneige eben auch die nötigen Rechte und die hat eben nun mal in der Regel nur der Adiministrator.

Und wie kann ich das umgehen? Also dass jeder am PC die Zeit ändern kann? Gar nicht, oder?

Doch, in dem du den entsprechenden Benutzergruppen das Privileg die Systemzeit zu ändern zu ordnest. Programm technich brauchst du dazu aber auch wieder Administratorenrechte. Ergo muss das alles vom Administrator so eingerichtet werden. Dass nicht jeder Benutzer die Systemzeit ändern kann hat auch seinen Sinn, man denke nur mal an Logdateien die vom System oder anderen Programmen erstell werden und in denen Zeiten festgehalten werden, wann was passiert ist.

Zitat von Chrissi91:

Und wie kann ich das umgehen? Also dass jeder am PC die Zeit ändern kann? Gar nicht, oder?

In dem du den normalen Benutzer die Rechte erteilst, die Systemuhr zu verändern. Dazu gpedit.msc starten, und die Richtlinie ändern. (siehe Anhang)