Versionsinfo auslesen ohne \VarFileInfo\Translation

[Bummi]

wenn Du nur die Version brauchst

Delphi-Quellcode:

Function GetFileVer(s:String):String;
type
zz=^VS_FIXEDFILEINFO;
var
p:Array[0..255] of Char;
poi:Pointer;
plen:Cardinal;
i,j:Integer;
begin
if GetFileVersionInfo(Pchar(s),0,SizeOf(p),@p[0]) then
   begin
   Result:=p;
   if VerQueryValue(@p[0],'\',poi,plen) then
   begin
   i:=VS_FIXEDFILEINFO(zz(poi)^).dwFileVersionMS;
   j:=VS_FIXEDFILEINFO(zz(poi)^).dwFileVersionLS;
   Result:=IntToStr(i div 65536)+'.'+IntToStr(i mod 65536)+'.'+IntToStr(j div 65536)+'.'+IntToStr(j mod 65536);
   end
   else Result:='';
   end
 else Result:='';
end;