Obtener propiedades de EXE..

[n3mohack]

Estimados..
Ej. necesito obtener las propiedades de los exe's contenidos en una carpeta, especificamente me interesa la versión de cada ejecutable.

¿alguna idea?.. ¿alguna api?...

Gracias de antemano.

[dec]

Hola,

Lo siguiente es una adaptación del truco "Obtener la version de tu aplicacion definida desde el IDE Delphi" que puede hallarse en TrucoMania.

Código Delphi [-]
 function GetExeVersion(exePath: string) : string;
 var
   Size, Size2: DWord;
   Pt, Pt2: Pointer;
 begin
   if not FileExists(exePath) then Exit;
   Size := GetFileVersionInfoSize(PChar (exePath), Size2);
   if Size > 0 then
   begin
     GetMem (Pt, Size);
     try
       GetFileVersionInfo (PChar (exePath), 0, Size, Pt);
       VerQueryValue (Pt, '\', Pt2, Size2);
       with TVSFixedFileInfo (Pt2^) do
       begin
         Result:= IntToStr (HiWord (dwFileVersionMS)) + '.' +
                  IntToStr (LoWord (dwFileVersionMS)) + '.' +
                  IntToStr (HiWord (dwFileVersionLS)) + '.' +
                  IntToStr (LoWord (dwFileVersionLS));
       end;
     finally
       FreeMem (Pt);
     end;
   end;
 end;

[n3mohack]

listoco... me funko!!! grax

[CRIS]

Y para una aplicacion externa??

Como se haria??

Salu2.CRIS.

[dec]

Hola,

Empezado por CRIS

Y para una aplicacion externa??

¿Probaste ya si la función de más arriba puede valerte, incluso cuando no hablemos de un "ejecutable Delphi"?

[CRIS]

Con la aplicacion en curso si rula perfectamente, pero yo necesito que me devuelva la version de una aplicacion creada en VB que lleva su info version.

pero esque no se como hacerlo para que me de la info de esa aplicacion.

Salu2. y gracias contestame.