Zugriff auf Versionsinfo

[Sharky]

Hai Nimoee,

ich mache das so:

Delphi-Quellcode:

function GetVersion(Datei: string): string;
var
 aFileName          : array[0..MAX_PATH] of Char;
 pdwHandle          : DWORD;
 nInfoSize          : DWORD;
 pFileInfo          : Pointer;
 pFixFInfo          : PVSFixedFileInfo;
 nFixFInfo          : DWORD;
// aVarFPath          : array[0..MAX_PATH] of Char;
begin
  //Gibt Versionsnummer zurück
 StrPCopy(aFileName, Datei);
 pdwHandle := 0;
 nInfoSize := GetFileVersionInfoSize(aFileName, pdwHandle);
 result := '0';
 if nInfoSize <> 0 then
  pFileInfo := GetMemory(nInfoSize)
 else
  pFileInfo := nil;
 if Assigned(pFileInfo) then
  try
   if GetFileVersionInfo(aFileName, pdwHandle, nInfoSize, pFileInfo) then
    begin
     pFixFInfo := nil;
     nFixFInfo := 0;
     if VerQueryValue(pFileInfo, '\', Pointer(pFixFInfo), nFixFInfo) then
      begin
       result := Format('%d.%d.%d.%d', [HiWord(pFixFInfo^.dwFileVersionMS),
        LoWord(pFixFInfo^.dwFileVersionMS), HiWord(pFixFInfo^.dwFileVersionLS),
         LoWord(pFixFInfo^.dwFileVersionLS)]);
      end;
    end;
  finally
   FreeMemory(pFileInfo);
  end;
end;

Weiss garnicht mehr wo ich den Code her habe