Dateiversion einer DLL zurückgeben

[Heiko2107]

Hat jemand eine Idee, wie ich in Delphi die Dateiversion einer DLL in einer Funktion ermitteln und an ein aufrufendes Prog. zurückgeben kann? :confused:

======================================

Delphi rules the world of developement

======================================

[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;