DrScherzkeks

hier mit kannst du die version einer beliebigen datei herraus bekommen z.b. auch einer dll .... :cool: function GetBuildInfo(const AFilename:String; var V1,V2,V3,V4:Word):Boolean; var VerInfoSize : Integer; VerValueSize : Integer; Dummy : Integer; VerInfo : Pointer; VerValue : PVSFixedFileInfo; begin VerInfoSize := GetFileVersionInfoSize(PChar(AFilename),Dummy); Result := False; if VerInfoSize<>0 then begin GetMem(VerInfo,VerInfoSize); try if GetFileVersionInfo(PChar(AFilename),0,VerInfoSize,VerInfo) then begin if VerQueryValue(VerInfo,'\',Pointer(VerValue),VerValueSize) then begin with VerValue^ do begin V1 := dwFileVersionMS shr 16; V2 := dwFileVersionMS and $FFFF; V3 := dwFileVersionLS shr 16; V4 := dwFileVersionLS and $FFFF; end; Result := True; end; end; finally FreeMem(VerInfo,VerInfoSize); end; end; end;