Compile-Datum

[theomega]

Hallo Leute
ich bräuchte in meinem programm im "Über" Dialog eine Angabe, wann die EXE-Compiled wurde. Natürlich könnte man das Änderungsdatum der EXE nehmen, dummerweise geht das nicht, weil durch die Installation da nur das Installationsdatum drin steht!
Am einfachsten wäre ein Compiler-Parameter! Oder sonst noch eine Idee?

Danke
TO

[jbg]

Bei mrExperts ist eine solche Funktion enthalten.

[Dezipaitor]

ich habe in der delphi hilfe
unter

version ->
Reading version information-- Delphi example

das gefunden :

Code:

procedure TForm1.Button1Click(Sender: TObject);

const
  InfoNum = 10;
  InfoStr: array[1..InfoNum] of string = ('CompanyName', 'FileDescription', 'FileVersion', 'InternalName', 'LegalCopyright', 'LegalTradeMarks', 'OriginalFileName', 'ProductName', 'ProductVersion', 'Comments');
var
  S: string;
  n, Len, i: DWORD;
  Buf: PChar;
  Value: PChar;
begin
  S := Application.ExeName;
  n := GetFileVersionInfoSize(PChar(S), n);
  if n > 0 then
  begin

    Buf := AllocMem(n);
    Memo1.Lines.Add('VersionInfoSize = ' + IntToStr(n));
    GetFileVersionInfo(PChar(S), 0, n, Buf);
    for i := 1 to InfoNum do
      if VerQueryValue(Buf, PChar('StringFileInfo\040904E4\' + InfoStr[i]), Pointer(Value), Len) then
        Memo1.Lines.Add(InfoStr[i] + ' = ' + Value);
    FreeMem(Buf, n);
  end
  else
    Memo1.Lines.Add('No version information found');
end;