Wer möchte nicht in seinem Programm eine 100% genaue Uhrzeit haben?
Als erstes solltest du eine neue Applikation erstellen. Dann plazierst du einmal NMTime (Register FastNet), einen Timer und ein Label. Dann schreibst du in die FormCreate-Methode folgendes:
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 1000; { ein anderer Aktualisierungswert ist natürlich auch möglich... }
NMTime1.TimeOut := 2000;
end;
Dann in die Timer1.OnTimer:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var
AtomZeit: String;
begin
NMTime1.Host := 'time.nist.gov';
AtomZeit := NMTime1.TimeStr;
Label1.Caption := 'Es ist genau '+AtomZeit;
end;
Natürlich kann man auch diese Informationen so verarbeiten, dass die SystemUhrzeit auf diese AtomZeit eingestellt wird. Das soll hier aber nicht näher beschrieben werden...
posted by Chakotay1308
[edit=sakura]PRE durch DELPHI-Tags ersetzt. Mein Gott, war der Beitrag alt 
Mfg, sakura[/edit]
[edit=sakura] Mfg, sakura[/edit]