Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1927 connectés 

  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  [Delphi 6] : Afficher les infos de versions

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Delphi 6] : Afficher les infos de versions

n°443456
Kyle_Katar​n
The World Is A Vampire ....
Posté le 29-06-2003 à 22:22:13  profilanswer
 

Commentfaire pour afficher (enfin, récupérer) à l'exécution les N° de version de l'exe sur lequel on travaille sans passer par un GetFileVersionInfo qui est un peu lourdingue... y'a pas moyen de les extraire de "Application" ?


---------------
KC Softwares - VideoInspector (Codec Viewer) - AudioGrail
mood
Publicité
Posté le 29-06-2003 à 22:22:13  profilanswer
 

n°443486
antp
Super Administrateur
Champion des excuses bidons
Posté le 29-06-2003 à 22:43:10  profilanswer
 

Non, faut passer par cette fonction [:spamafote]
 
Tu mets le truc une fois pour toute dans une unit, que tu réutilises dans tes différents softs.
 


type
  PFixedFileInfo = ^TFixedFileInfo;
  TFixedFileInfo = record
     Signature: DWord;
     StrucVersion: DWord;
     Minor: Word;
     Major: Word;
     Build: Word;
     Release: Word;
     FileFlagsMask: DWord;
     FileFlags: DWord;
     FileOS: DWord;
     FileType: DWord;
     FileSubtype: DWord;
     FileDateMS: DWord;
     FileDateLS: DWord;
  end;
 
function GetFileInfo(const AFileName: string): TFixedFileInfo;
var
  Handle, VersionSize: DWORD;
  SubBlock: string;
  Temp: Pointer;
  Data: Pointer;
begin
  SubBlock := '\';
  VersionSize := GetFileVersionInfoSize(PChar(AFileName), Handle);
  if VersionSize > 0 then
  begin
    GetMem(Temp, VersionSize);
    try
      if GetFileVersionInfo(PChar(AFileName), Handle, VersionSize, Temp) then
        if VerQueryValue(Temp, PChar(SubBlock), Data, VersionSize) then
          Result := PFixedFileInfo(Data)^;
    finally
      FreeMem(Temp);
    end;
  end else
    RaiseLastOSError;
end;
 
function GetBuild(const AFileName: TFileName): string;
begin
  with GetFileInfo(AFileName) do
    Result := Format('%d.%d.%d.%d', [Major, Minor, Release, Build]);
end;


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°443526
Kyle_Katar​n
The World Is A Vampire ....
Posté le 29-06-2003 à 22:54:49  profilanswer
 
n°444197
Ciler
Posté le 30-06-2003 à 15:46:11  profilanswer
 

antp a écrit :

Non, faut passer par cette fonction [:spamafote]
 
Tu mets le truc une fois pour toute dans une unit, que tu réutilises dans tes différents softs.


 
Cette fonction est torry.net & antp powered  :D


---------------
And I looked, and behold a pale horse: and his name that sat on him was Death, and Hell followed with him. Revelations 6:8
n°444201
antp
Super Administrateur
Champion des excuses bidons
Posté le 30-06-2003 à 15:47:50  profilanswer
 

la fonction que j'ai postée vient de Zion, je sais pas où il l'a trouvée [:ddr555]


---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Delphi/Pascal

  [Delphi 6] : Afficher les infos de versions

 

Sujets relatifs
afficher ipZipper des fichiers sous delphi
Automatiser la récupération d'infos sur le site des Pages Jaunes...[Delphi] multitache : activer une form à la fin d'une tache
[ Delphi ] Construire ou compiler ?Impossible d'afficher un bitmap transparent dans un DC memoire...
Executer un fichier sur un ftp sous delphi?Probleme avec delphi
afficher un menuLes fichier ressource ( .res ) en delphi
Plus de sujets relatifs à : [Delphi 6] : Afficher les infos de versions


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR