PC-Datum und Zeit ändern ?

[RavenIV]

Zitat:

Zitat von Daniel

@DelphiTurbo:
Du musst Dir angewöhnen, mal einen Blick in die Hilfe-Funktion von Delphi zu werfen. Dann wüsstest Du nämlich, dass man der Funktion "FormatDateTime()" gleich den ganzen Satz an Format-Optionen mitgeben kann - ein einziger Aufruf reicht also völlig.

Vor allem ist now auch eine Funktion.
Diese wird ebenso wie FormatDateTime einige mal aufgerufen.
Jeder Funktionsaufruf kostet Zeit.

P.S. Form1, Button1 und Edit1 sind keine vernünftigen Namen.

[SaFu]

Zitat:

Zitat von Delphiturbo

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
Edit1.Text:=FormatDateTime('dd',now)+ '.' +
                  FormatDateTime('mm',now)+ '.' +
                  FormatDateTime('yy',now)+ ' ' +
                  FormatDateTime('hh',now)+ '.' +
                  FormatDateTime('nn',now)+ '.' +
                  FormatDateTime('ss',now);

Das geht so auch

Delphi-Quellcode:

Label1.Caption:= (FormatdateTime('dd:mm:yy:hh:nn:ss',now));

[Delphiturbo]

Stimmt. Das wahr zuviel
Wie kann ich nun genauso wie beim auslesen, auch schreiben (zuweisen) ?

[RavenIV]

Zitat:

Zitat von Delphiturbo

Stimmt. Das wahr zuviel
Wie kann ich nun genauso wie beim auslesen, auch schreiben (zuweisen) ?

Du wurdest schon dreimal auf die Suchfunktion hingewiesen.

Wenn Du nicht lesen kannst / willst, dann gehst Du auf diese Seite:
www.gidf.de

[Sharky]

Zitat:

Zitat von Delphiturbo

Stimmt. Das wahr zuviel
Wie kann ich nun genauso wie beim auslesen, auch schreiben (zuweisen) ?

Ach menno,

es steht doch alles in dem Thread. Sogar mit dem passenden Suchbegriff.

BITEE lese die Beiträge der anderen auch und versuche zu lernen :!:

[SaFu]

Schaul mal Systemzeit ändern

ich bin zwar auch net der Programmier König aber ab und zu such ich auch selber :thumb:

[Delphiturbo]

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  SystemTime: TSystemTime;
  NewTime, NewDate: string;
begin
  NewTime := '00:00:00';
  NewDate := '15.05.2008';
  DateTimeToSystemTime(StrToDate(NewDate) + StrToTime(NewTime), SystemTime);
  SetLocalTime(SystemTime);
  // Tell windows, that the Time changed!
  PostMessage(HWND_BROADCAST, WM_TIMECHANGE, 0, 0); // *
end;

:mrgreen:

[Daniel]

Schön. Du hast mit Google gesucht und die Lösung einer anderen Internetseite 1:1 hier eingestellt. (http://www.delphitricks.com/source-c...stem_time.html)

Und nun? DelphiTurbo, solange Du nicht willens bist, Dir ein paar Grundlagen durchzulesen, wird das hier nichts mit Dir und der DP.

* geschlossen, da die Frage ja offenbar gelöst ist *