PC-Datum und Zeit ändern ?

[Delphiturbo]

Hallo
mit dem Code kann ich sie anzeigen
wie kann nun das Datum und die Uhr ändern ?

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);

[SaFu]

Falls du die systemzeit meinst schaumal unter SetSystemTime

Gruß Sascha

[STS301]

= Keine Beiträge entsprechen Deinen Kriterien.

willst du die Zeit in deinem Programm ändern oder die Systemuhrzeit und das Datum

[SirThornberry]

ist das hier dein ernst?

Delphi-Quellcode:

Edit1.Text:=FormatDateTime('dd',now)+ '.' + 
                  FormatDateTime('mm',now)+ '.' + 
                  FormatDateTime('yy',now)+ ' ' + 
                  FormatDateTime('hh',now)+ '.' + 
                  FormatDateTime('nn',now)+ '.' + 
                  FormatDateTime('ss',now);

warum rufst du die Funktion FormatDateTime mehrfach auf anstelle einmal mit den entsprechenden Parametern?

[Luckie]

Was man so alles mit dem Stichwort Systemzeit im Forum findet. :?

[SaFu]

Zitat:

PC-Datum und Zeit ändern ?

Die Überschrift sagt es eigentlich

[Matze]

Zitat:

Zitat von STS301

= Keine Entsprechenden Kriterien

Sascha hat einen falschen Suchlink eingefügt, da dieser bereits eine Such-ID enthält, die nicht lange gültig ist. Das Schlagwort ist jedoch korrekt und mit SetSystemTime findet man einiges. ;)

Edit: Huch sind da viele Beiträge in der Zwischenzeit gekommen. Den roten kasten vermisse ich so langsam.

[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.

Dein Copy&Paste-Programmieren wird nicht zum Erfolg führen.

[Delphiturbo]

Zitat:

Zitat von STS301

= Keine Beiträge entsprechen Deinen Kriterien.

willst du die Zeit in deinem Programm ändern oder die Systemuhrzeit und das Datum

ich möchte das Systemdatum und die Uhr über mein Button ändern

[Matze]

Es wurde dazu bereits alles nötige geschrieben.

[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 *