Zitat von
Ca3dEsnox:
Ich will bei meinem Programm die Version in der Titelleiste anzeigen und hab keine Lust bei jeder Änderung der Version diese von hand in der titelleiste zu ändern. Daher meine Frage: Kann man irgendwie die version während das Programm läuft auslesen? Und wie?
Es geht auch so (verwende ich so in meinen Abouts):
Delphi-Quellcode:
//------------------------------------------------------------------------
function ProgramVersion : string;
//------------------------------------------------------------------------
// Rückgabe der Versionsnummer
//------------------------------------------------------------------------
const
InfoNum = 1;
InfoStr : array[1..InfoNum] of string = ('FileVersion');
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);
GetFileVersionInfo(PChar(S), 0, n, Buf);
for i := 1 to InfoNum do
if VerQueryValue(Buf, PChar('StringFileInfo\040704E4\' + InfoStr[i]), Pointer(Value), Len) then
result := result + Value;
FreeMem(Buf, n);
end;
end;