Averiguar la versión de un programa en ejecución

[MAXIUM]

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;

Código Delphi [-]
ShowMessage(GetExeVersion('hola.exe'));