Versionsinfo auslesen?

[EWeiss]

Zitat:

PWideChar und nicht PChar

PChar wir doch vom Compiler automatisch nach PWideChar gecastet oder?

sollte eigentlich kein Problem sein.

gruss

[DeddyH]

GetFileVersionInfoA -> PAnsiChar
GetFileVersionInfoW -> PWideChar
GetFileVersionInfo -> PChar

Welcher Typ der richtige ist, hängt also vom Aufruf ab. Somit sollte der gepostete Code sowohl in Ansi als auch Unicode korrekt sein, da Typ-Aliase verwendet werden.

[t.roller]

Der oben genannte Code ist unvollständig: es fehlt die Build-Version.

Delphi-Quellcode:

function GetAppVersionStr: string;
var
  Exe: string;
  Size, Handle: DWORD;
  Buffer: TBytes;
  FixedPtr: PVSFixedFileInfo;
begin
  Exe := ParamStr(0);
  Size := GetFileVersionInfoSize(PChar(Exe), Handle);
  if Size = 0 then RaiseLastOSError;
  SetLength(Buffer, Size);
  if not GetFileVersionInfo(PChar(Exe), Handle, Size, Buffer) then
    RaiseLastOSError;
  if not VerQueryValue(Buffer, '\', Pointer(FixedPtr), Size) then
    RaiseLastOSError;
  Result := Format('%d.%d, Release: %d, Build: %d',
    [LongRec(FixedPtr.dwFileVersionMS).Hi,  //major
     LongRec(FixedPtr.dwFileVersionMS).Lo,  //minor
     LongRec(FixedPtr.dwFileVersionLS).Hi,  //release
     LongRec(FixedPtr.dwFileVersionLS).Lo]) //build
end;

Aufruf:

Delphi-Quellcode:

caption:= 'Version: '+GetAppVersionStr;

-----------------------------
Ausgabe-Beispiel:
Version: 1.2, Release: 3, Build: 4

[matze8426]

Vielen Dank für die ausführlichen Antworten. Es funktioniert ;-)