Aktuelles Datum auslesen und nicht verändern

[Major1337]

Hallo,

bei meinem Programm soll im „Programm-Header“ die aktuelle Version stehen.

Version + Datum


Meine Lösung war zunächst diese hier,

XX.Caption := 'Version - ' + FormatDateTime ('DD.MM.YYY', NOW); …aber dann habe ich heute morgen festgestellt,
dass sich die Zeit ja schlauerweise verändert und nicht mehr das aktuelle Datum von der letzten Kompilierung.


Könnt ihr mir sagen wie ich es hinbekomme, dass er mir nur das aktuelle Datum ausliest und dieses als sogenannte Konstante stehen lässt, bis zur nächsten Kompilieren.

[Uwe Raabe]

So geht das leider nicht.

Du kannst aber das Datum der EXE abfragen. FileDate, Application.ExeName und ggf. FileDateToDateTime sollten dir dabei auf die Sprünge helfen.

[Luckie]

Und so bekommst du das Kompilierdatum: http://www.michael-puff.de/Developer...imeStamp.shtml

[Major1337]

Hey,

für welche die es interessiert:

Delphi-Quellcode:

 
  Datei := FileDateToDateTime(FileAge('prog.exe'));
  XXX.Caption :=  'Version ' + DateTimeToStr(Datei);

Ich möchte aber jetzt, dass nur das Datum ohne Uhrzeit angezeigt wird.
Zunächst habe ich es mit FormatDateTime versucht, aber nach einem kompilieren wird das Datum nie geändert.

So:

Delphi-Quellcode:

 
  Datei := FileDateToDateTime(FileAge('prog.exe'));
  Data := FormatDateTime ('dd.mm.yyyy', Datei); 

  XXX.Caption :=  'Version ' + DateTimeToStr(data);

[Luckie]

Zitat von Major1337:

Zunächst habe ich es mit FormatDateTime versucht, aber nach einem kompilieren wird das Datum nie geändert.

Wie viele Tage hast du denn gewartet?

Zitat:

Delphi-Quellcode:

 
  Datei := FileDateToDateTime(FileAge('prog.exe'));
  Data := FormatDateTime ('dd.mm.yyyy', Datei); 

  XXX.Caption :=  'Version ' + DateTimeToStr(data);

Es kann sein, dass Windows nur den Inhalt der schon existierenden Datei neu erstellt und nicht die Datei für sich neu anlegt. Aber warum nimmst du nicht die Funktion aus meinem Link, die genau das macht, was du willst? Sogar mit Aufrufbeispiel.