Versions-abfrage in Delphi

NIC140903

Erfahrenes Mitglied
folgendes problem:

in delphi (in meinem fall version 6) isses ja möglich in den project-options die programm version mit einzubinden, also muss es doch auch möglich sein diese abzufragen, und dann zum beispiel in form1.caption anzuzeigen
also: form1.caption:='Mein tolles Programm' + version

wär cool wenn mir da wer helfen könnte, thx schon ma im vorraus
 
Hi,
die Version läßt sich über folgende Funktion abfragen.
Der Funktion wird ein Dateinahme übergeben.
Code:
function GetVersion(Datei: string): string;

var  aFileName: array [0..MAX_PATH] of Char;

  pdwHandle: DWORD;

  nInfoSize: DWORD;

  pFileInfo: Pointer;

  pFixFInfo: PVSFixedFileInfo;

  nFixFInfo: DWORD;

  pVarFInfo: PChar;

  nVarFInfo: DWORD;

  nVarTrans: 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;
 
perfekt, du bistn gott ;)
dnagge für deine hilfe, funzt super!
(hätte nich gedacht, dass das sooo umständlich is...aber egal ;) )
 
Zurück