Hallo #,
obwohl hier schon viel geschrieben wurde,
komme ich nicht klar ...
Der meiste Code hier läßt sich unter D2010 nicht kompilieren (Ansicode <->
Unicode).
Der untere Code funktioniert zwar, liefert mir aber z.B. bei Outlook 1.17897.XXX
Delphi-Quellcode:
function GetVersion2(const theFileName: string): string;
var
VerInfoSize: DWORD;
VerInfo: Pointer;
VerValueSize: DWORD;
VerValue: PVSFixedFileInfo;
Dummy: DWORD;
begin
Result := '';
VerInfoSize := GetFileVersionInfoSize(PChar(theFileName), Dummy);
if VerInfoSize = 0 then Exit;
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;
Diese Zahl wollte ich eigentlich nicht
Hülfe
Da sollte mal jemand die CodeLib-Bsp,-e aktualisieren.
Danke
Heiko