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

Récupérer les infos des fichiers ??? - Divers - Programmation

Marsh Posté le 14-11-2003 à 13:41:18    

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
Reply

Marsh Posté le 14-11-2003 à 13:41:18   

Reply

Marsh Posté le 14-11-2003 à 14:49:17    

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;
  19. function GetFileInfo(const AFileName: string): TFixedFileInfo;
  20. var
  21.   Handle, VersionSize: DWORD;
  22.   SubBlock: string;
  23.   Temp: Pointer;
  24.   Data: Pointer;
  25. begin
  26.   SubBlock := '\';
  27.   VersionSize := GetFileVersionInfoSize(PChar(AFileName), Handle);
  28.   if VersionSize > 0 then
  29.   begin
  30.     GetMem(Temp, VersionSize);
  31.     try
  32.       if GetFileVersionInfo(PChar(AFileName), Handle, VersionSize, Temp) then
  33.         if VerQueryValue(Temp, PChar(SubBlock), Data, VersionSize) then
  34.           Result := PFixedFileInfo(Data)^;
  35.     finally
  36.       FreeMem(Temp);
  37.     end;
  38.   end else
  39.     RaiseLastOSError;
  40. end;
  42. function GetBuild(const AFileName: TFileName): string;
  43. begin
  44.   with GetFileInfo(AFileName) do
  45.     Result := Format('%d.%d.%d.%d', [Major, Minor, Release, Build]);
  46. end;


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

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

Marsh Posté le 14-11-2003 à 15:30:22    

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


---------------
oui oui
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed