hier ein kurzer Quelltext-Auszug, der bei mir funktioniert:
Delphi-Quellcode:
// Versionsinformation aus exe-File auslesen
function GetVersion (): string;
var
VerInfoSize : DWord;
VerInfo : Pointer;
VerValueSize : DWord;
VerValue : PVSFixedFileInfo;
Dummy : DWord;
begin
VerInfoSize := GetFileVersionInfoSize (PChar (ParamStr (0)), Dummy);
GetMem (VerInfo, VerInfoSize);
GetFileVersionInfo (PChar (ParamStr (0)), 0, VerInfoSize, VerInfo);
VerQueryValue (VerInfo, '\', Pointer (VerValue), VerValueSize);
with VerValue^ do
begin
result := IntTostr (dwFileVersionMS shr 16);
result := result + '.' + IntTostr (dwFileVersionMS and $FFFF);
result := result + '.' + IntTostr (dwFileVersionLS shr 16);
result := result + '.' + IntTostr (dwFileVersionLS and $FFFF);
end;
FreeMem (VerInfo, VerInfoSize);
end;
Verwendung:
LaVersion.Caption := 'Version ' + GetVersion; // Fileversion auslesen aus exe
edit: der Quellcode stammt nicht von mir, hab ich hier in
DP gefunden.
Klaus E.
Linux - das längste Text-Adventure aller Zeiten...
Wer nie Linux mit dem vi konfiguriert hat, der hat am Leben vorbei geklickt.