dateiversionsinformationen per verqueryvalue...

[ake]

hallo,

ich möchte versionsinfos von exen ermitteln, in einem cpp-programm fand ich folgenden aufruf:

VerQueryValue( buffer, "\\VarFileInfo\\Translation",
(void **) &translation, &datasize);

den wollte ich nun nach delphi übersetzen, dies klappte allerdings nicht. die probleme traten vor allem bei den beiden letzten übergabeparametern auf. weiß jemand wie ich diesen aufruf in delphi bewerkstelligen kann???

mfg
ake

[Bernhard Geyer]

Nimm doch die Klasse TJclFileVersionInfo aus der Jedi (http://sourceforge.net/projects/jcl

[ake]

hallo,

schön und gut, ich würde aber auch gerne wissen, wie man diese funktion in delphi aufrufen kann, dass muß ja gehen...

aber dennoch danke, werde ich mir mal ansehen, aber wie gesagt, kann
mir niemand sagen wie man diese funktion aufruft???

mfg
ak

[Bernhard Geyer]

In der Jedi Code Library wird diese Funktion auch verwendet.<br>
Hier der Code der Funktion der diese Funktion verwendet:

<pre>
function VersionFixedFileInfo(const FileName: string; var FixedInfo: TVSFixedFileInfo): Boolean;
var
Size, FixInfoLen: DWORD;
Handle: THandle;
Buffer: string;
FixInfoBuf: PVSFixedFileInfo;
begin
Result := False;
Size := GetFileVersionInfoSize(PChar(FileName), Handle);
if Size > 0 then
begin
SetLength(Buffer, Size);
if GetFileVersionInfo(PChar(FileName), Handle, Size, Pointer(Buffer)) and
VerQueryValue(Pointer(Buffer), '\', Pointer(FixInfoBuf), FixInfoLen) and
(FixInfoLen = SizeOf(TVSFixedFileInfo)) then
begin
Result := True;
FixedInfo := FixInfoBuf^;
end;
end;
end;
</pre&gt

[ake]

vielen dank...

mfg
ak