Versionsinfos des lfd. Programms auslesen

[Joerg.Kohrt]

Hallo,

um die Version des lfd. Programms auszulesen und ggf. weiterzuleiten, gibt es einen Quelltext der Delphi7-Hilfe:

Delphi-Quellcode:

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;

Unter Projekte/Optinen / Versioninfos habe ich alles ordnungsgem. eingetragen, trotzdem läßt sich der Routine keine Infos entlocken. Könnt Ihr mir helfen? Vielen Dank schon einmal.[cl]

[edit=Christian Seehase]Delphi-Tags gesetzt. Bitte künftig selber machen. Danke. Mfg, Christian Seehase[/edit]

[neolithos]

Erstmal Herzlich Willkommen in der DP.

Es erscheint nix, da du die Englischen Informationen versuchst auszulesen.

[neolithos]

Das wäre z.B. Deutsch, Deutschland -> 040704E4

Ich empfehle aber in der MSDN nochmal genau nachzulesen.

[Joerg.Kohrt]

Hallo und vielen Dank,
das hat sofort funktioniert.

Ins DB-Forum bin ich aus Versehen gerutscht,sorry.

[sakura]

Schau mal hier, da findest Du eine generelleren Ansatz

......