Zugriff auf Versionsinfo

[Nimoee]

hallo,

hat jemand eine Ahnung wie man bei Delphi 5 an die Versionsinfo des jeweiligen Programms kommt?
Ich weiss die steht in der Datei mit der Endung dof. Das ist aber nicht befriedigend.
Wir brauchen diese Info unbedingt innerhalb des Programms.

nimoee

[sakura]

Hi,

dann will ich Dich mal mit unsere CodeLibrary vertraut machen. Dort ist die Lösung bereits verraten worden

http://www.delphipraxis.net/internal...ect.php?t=5616

......

[Nimoee]

hallo,
das mag sein. Nur ausprobiert hat sie scheinbar noch niemand, die funktioniert nämlich nicht. D5+Win2k+NTFS
nimoee

[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

[Nimoee]

hallo,
funktioniert doch. Hab beim kopieren einen Fehler gemacht. Sorry
nimoee

[sakura]

Zitat von Nimoee:

hallo,
das mag sein.

Ist so

Zitat von Nimoee:

Nur ausprobiert hat sie scheinbar noch niemand, die funktioniert nämlich nicht. D5+Win2k+NTFS

Was funktioniert denn nicht? Die Aussage kann ich so nicht bestätigen und so dahingestellt ist die auch ein wenig "schwach".

Diese Funktion ist in erweiterter Ausführung täglich tausendfach im Einsatz Und sie funktioniert. (Windows NT4/2000/2003)

Im Anhang findest Du eine Demo mit genau dieser Funktion C&P im Hauptformular.

......

[sakura]

Zitat von Nimoee:

hallo,
funktioniert doch. Hab beim kopieren einen Fehler gemacht. Sorry

Akzeptiert

......