Auslesen der Version eines Projektes

[Jürgen Kortt]

Hallo,
ich suche eine Möglichkeit die aktuelle Version aus dem Projekt/Optionen/Versionsinfo in meinem Delphi-Programm zu benutzen (z.B. Ausgeben). Es ist zwar schön, daß Delphi die Versionsnummern
automatisch weiterzählt, aber bisher kann ich mir diese nur bei den Eigenschaften der compilierten Exe-Dtaei anzeigen lassen.
Ich würde aber gerne beim Start des Programms die Version mit anzeigen.

Kann mir jemand sagen, ob und wie man diese Information benutzen kann ?

Jürgen Kortt
([email protected])

[Thomas Melchert]

<p>Hallo Jürgen,<br>
<br>
<pre>
resourcestring
rs_Info01 ='CompanyName';
rs_Info02 ='FileDescription';
rs_Info03 ='FileVersion';
rs_Info04 ='InternalName';
rs_Info05 ='LegalCopyright';
rs_Info06 ='LegalTradeMarks';
rs_Info07 ='OriginalFilename';
rs_Info08 ='ProductName';
rs_Info09 ='ProductVersion';
rs_Info10 ='Comments';
</pre>
<pre>
const
ifs_CompanyName = 1;
ifs_FileDescription = 2;
ifs_FileVersion = 3;
ifs_InternalName = 4;
ifs_LegalCopyright = 5;
ifs_LegalTrademarks = 6;
ifs_OriginalFilename= 7;
ifs_ProductName = 8;
ifs_ProductVersion = 9;
ifs_Comments =10;
</pre>
<pre>
InfoStr:array [ifs_CompanyName..ifs_Comments] of String=
(rs_Info01, rs_Info02, rs_Info03, rs_Info04, rs_Info05,
rs_Info06, rs_Info07, rs_Info08, rs_Info09, rs_Info10);

</pre>
<pre>
function VersionsInfo(aIndex:Integer):String;
var s :String;
n, lWord;
b, v:PChar;
begin
Result:='';
s:=Application.Exename;
n:=GetFileVersionInfoSize(PChar(s), n);
if (n>0) then
begin
b:=AllocMem(n);
try
GetFileVersionInfo(PChar(s), 0, n, b);
if (VerQueryValue(b, PChar('StringFileInfo\040704E4\'+InfoStr[aIndex]),
Pointer(v), l)) then Result:=StrPas(v);
finally
FreeMem(b, n);
end; // try
end; // if
end; // VersionsInfo
</pre>
<br>
Gruß Thomas</p&gt

[Jürgen Kortt]

Danke