Saber la versión de un ejecutable

[ecfisa]

Hola MAXIUM.

Empezado por MAXIUM

...
¿Como puedo obtener la versión de otro ejecutable que obviamente posea dicha información?
...

Si te referis a un archivo ejecutable podes hacer:

Código Delphi [-]
function GetExeVersion(const aFileName: string): string;
var
  sz1,sz2: DWord;
  P1, P2: Pointer;
begin
  if not FileExists(aFileName) then Exit;
  sz1:= GetFileVersionInfoSize(PChar(aFileName), sz2);
  if sz1 > 0 then
  begin
    GetMem(p1, sz1);
    try
      GetFileVersionInfo (PChar(aFileName), 0, sz1, p1);
      VerQueryValue(p1, '\', p2, sz2);
      with TVSFixedFileInfo(p2^) do
      begin
        Result:= Format('%d.%d.%d.%d', [HiWord(dwFileVersionMS),
          LoWord(dwFileVersionMS),HiWord(dwFileVersionLS),LoWord(dwFileVersionLS)]);
      end;
    finally
      FreeMem(p1);
    end;
   end;
end;

Uso:

Código Delphi [-]
  ShowMessage(GetExeVersion('C:\Windows\regedit.exe'));

Saludos

[MAXIUM]

Excelente. Muchisimas gracias