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

[jars]

Al iniciar un ejecutable necesito poder averiguar la versión de otro ejecutable que también se esta ejecutando en la misma pc.
Hay alguna forma de obtenerlo?
Uso Delphi 7
Gracias

[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'));

[Neftali [Germán.Estévez]]

Aquí en la sección de trucos del club, también hay uno de [dec] para averiguarlo:
https://www.clubdelphi.com/foros/sho...hlight=version

[jars]

Gracias por responder pero lo que me pasaron no es para averiguar la versión de un exe que se esta ejecutando en memoria. No me sirve por lo siguiente. Hay un programa que se utiliza como lanzador de varios módulos, este programa al arrancar compara las versiones de estos módulos contra las versiones en el servidor, si son mas nuevas las reemplaza, inclusive puede reemplazarse a si mismo y este es el problema. Luego de esto hay un modulo que se ejecuta automáticamente y es el que debe poder chequear que versión es la del lanzador que se esta ejecutando dado que el exe fue reemplazado pero el que esta en memoria es el viejo y debe avisar que debe ser relanzado para que sea la versión correcta.

[Neftali [Germán.Estévez]]

(perdón por el mensaje anterior que correspondía a otro foro)

En este caso, si no te he entendido mal, tienes un ejecutable en memomia de la version=1, su versión en disco ha sido cambiada por el mismo ejecutable de version=2 y no te sirve comprobar la version del ejecutable en disco (porque te devolverá 2), sino que quieres comprobar la versión del ejecutable en memoria para que te devuelva version=1
¿Es correcto o lo he vuelto a entender mal?

[jars]

German, no entiendo lo que pusiste.

[Neftali [Germán.Estévez]]

No se.
Es que yo tampoco he entendido muy bien lo que pides, por eso estaba "elucubrando"...

Lo normal cuando actualizas una aplicación que se está ejecutando es:

0) Comprobar si existe versión nueva de la aplicación.
1) Cerrar la aplicación (si se está ejecutando).
2) Copiar el nuevo ejecutable en el mismo lugar.
3) Relanzar la aplicación.

Para el punto (0) hay varios códigos como los que te hemos pasado.
Lo que no acabo de entender es el proceso que estás utilizando...

Y en el caso de que una aplicación se deba actualizar "a si misma", lo más fácil es utilizar una segunda aplicacción (Launchar/Updater) que hace el trabajo con el esquema anterior.

[marco3k]

Empezado por jars

Al iniciar un ejecutable necesito poder averiguar la versión de otro ejecutable que también se esta ejecutando en la misma pc.
Hay alguna forma de obtenerlo?
Uso Delphi 7
Gracias

Solo una observación y si guardas ese valor de la version en un archivo dentro de la carpeta del ejecutable y desde ahi haces esas comparaciones.