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

  FORUM HardWare.fr
  Programmation
  Divers

  Récupérer les infos des fichiers ???

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Récupérer les infos des fichiers ???

n°566648
art_dupond
je suis neuneu... oui oui !!
Posté le 14-11-2003 à 13:41:18  profilanswer
 

youp,
 
 
sous windows (2000), quand on clique avec l'oreille droite de la souris sur un fichier => propriété => version, des informations apparaissent (c'est magique :p)
 
comment je pourrais récupérer ces infos ?  
 
j'ai cherché les chaines qui apparaissent dans le fichier même et dans la base de registre, mais j'ai pas trouvé :(
 
 
merci
 
 
ps: j'ai mis ca dans progragra, parce que je veux récupérer ces infos dans un progragra...
 
 
 
 
je suis neuneu ! n'est-ce pas ?


---------------
oui oui
mood
Publicité
Posté le 14-11-2003 à 13:41:18  profilanswer
 

n°566747
antp
Super Administrateur
Champion des excuses bidons
Posté le 14-11-2003 à 14:49:17  profilanswer
 

en Delphi :

Code :
  1. type
  2.   PFixedFileInfo = ^TFixedFileInfo;
  3.   TFixedFileInfo = record
  4.      Signature: DWord;
  5.      StrucVersion: DWord;
  6.      Minor: Word;
  7.      Major: Word;
  8.      Build: Word;
  9.      Release: Word;
  10.      FileFlagsMask: DWord;
  11.      FileFlags: DWord;
  12.      FileOS: DWord;
  13.      FileType: DWord;
  14.      FileSubtype: DWord;
  15.      FileDateMS: DWord;
  16.      FileDateLS: DWord;
  17.   end;
  18. function GetFileInfo(const AFileName: string): TFixedFileInfo;
  19. var
  20.   Handle, VersionSize: DWORD;
  21.   SubBlock: string;
  22.   Temp: Pointer;
  23.   Data: Pointer;
  24. begin
  25.   SubBlock := '\';
  26.   VersionSize := GetFileVersionInfoSize(PChar(AFileName), Handle);
  27.   if VersionSize > 0 then
  28.   begin
  29.     GetMem(Temp, VersionSize);
  30.     try
  31.       if GetFileVersionInfo(PChar(AFileName), Handle, VersionSize, Temp) then
  32.         if VerQueryValue(Temp, PChar(SubBlock), Data, VersionSize) then
  33.           Result := PFixedFileInfo(Data)^;
  34.     finally
  35.       FreeMem(Temp);
  36.     end;
  37.   end else
  38.     RaiseLastOSError;
  39. end;
  40. function GetBuild(const AFileName: TFileName): string;
  41. begin
  42.   with GetFileInfo(AFileName) do
  43.     Result := Format('%d.%d.%d.%d', [Major, Minor, Release, Build]);
  44. end;


Message édité par antp le 14-11-2003 à 14:49:28

---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire
n°566795
art_dupond
je suis neuneu... oui oui !!
Posté le 14-11-2003 à 15:30:22  profilanswer
 

yop merci... je vais trifouiller pour voir adapter ca


---------------
oui oui

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  Divers

  Récupérer les infos des fichiers ???

 

Sujets relatifs
Récupérer des données d'une page HTML générée par un autre domaineLister les fichiers (nom...) d'un repertoire sous windows en C++
[C]Comment recuperer un caractere des qu'il est saisi au clavier?[js] comment récupérer la valeur d'un textarea
[JAVA] Comment récupérer l'année en cours dans une variable ?récupérer le contenu d'une page php dans une page html
Liste des caractères interdits dans les noms de fichiers windowsLogiciel pour les fichiers d'aide *.chm
Récupérer l'objet class dont dépend la méthode statique appeléeproblème con : recupérer une variable passée en paramètre
Plus de sujets relatifs à : Récupérer les infos des fichiers ???


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