Una funcion que me diga si un programa esta abierto

[jorgegetafe]

Saludos, me gustaría una función para saber si un programa está siendo ejecutado o no (en este caso el microsoft office word 2007), he buscado por el foro y no lo encuentro.

Muchas gracias.

[betiitooo]

No Conozco Una Funcion Como La Que Necesitas, Sin Embargo, Cuando Tuve Que Hacer Ese Trabajo La Solucion Que Encontre Fue:
* Establecer Mi Lista De Programas Que Necesita Cononcer Si Estaban Corriendo.
* Crear Una Matriz Que Contenia Los Programas Y Sus Correspondientes Identificadores De Proceso
* Cuando Necesita Saber Si Un Programa Estaba Corriendo Solamente Accedia Al Sistema Operativo Y Checaba Si Estaba Corriendo El Proceso Que Se Habia Especificado.

( Si Tienes Un Poco De Miedito De Involucrarte Con El S.o., Entonces Puedes Intentarlo Con El Administrador De Tareas, Claro Si Usas Windows)

[jorgegetafe]

Miedo no... pero la cosa es que no se hacer nada de eso en delphi :-(

[jorgegetafe]

He encontrado esta función:


Código Delphi [-]FindWindow(Nil, Pchar('nombre de ventana'))



que me devuelve un boolean si la ventana con título: 'nombre de ventana' se esta ejecutando, lo malo es que quiero saber si hay algun documento del word que esté activo, y los documentos words al abrirse ponen su ventana como:


Código Delphi [-] ('nombre de archivo guardado' + ' - Microsoft Word')



¿Cómo podría poner la condición para que me detectase si ' - Microsoft Word' está en la barra del título? es decir:



Código Delphi [-]FindWindow(Nil, Pchar( '*' + ' - Microsoft Word'))



Siendo * cualquier cosa.

¿Me he explicado? gracias.

[[seoane]]

Hola,

http://www.clubdelphi.com/trucos/index.php?id=388
http://www.clubdelphi.com/foros/showthread.php?t=40902

Cambia ParamStr(0) por la ruta completa del programa que buscas. Y si solo quieres usar el nombre del ejecutable cambia la función GetModuleFileNameEx por GetModuleBaseName.

[jorgegetafe]

gracias ahora mismo lo pruebo

[jorgegetafe]

¿Quieres decir esto? Estoy bastante perdido...

Código Delphi [-]
 
if GetModuleBaseName(Process,'winword.exe',ModName,SizeOf(ModName)-1)>0  then

Me da error: tipos incompatibles cardinal-string.

[[seoane]]

¿Leíste el código que te pase? ¿En que parte parte aparece esa linea?

[jorgegetafe]

El código esta en el segundo enlace que me has puesto:

http://www.clubdelphi.com/foros/showthread.php?t=40902

y he hecho lo que he entendido (que seguro que esta mal) sustituir el parametro 0 por el nombre del programa y cambiar GetModuleFileNameEx por GetModuleBaseName.

Te importa ponerme como quedaría? gracias por tu paciencia.

[[seoane]]

Perdona, el corrector ortografico hizo de las suyas en mi mensaje.

Cambio PamaStr(0) por Parametro 0

El codigo quedaria asi:

Código Delphi [-]
uses PsApi;

function CuantosSomos: Integer;
var
  Procesos: array[1..1024] of DWORD;
  Needed, i: DWORD;
  Process: THandle;
  ModName: array[0..MAX_PATH] of Char;
begin
  Result:= 0;
  if EnumProcesses(@Procesos,SizeOf(Procesos),Needed) then
  begin
    for i:= 1 to (Needed div Sizeof(DWORD)) do
    begin
      Process := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ,
        FALSE,Procesos[i]);
      if Process <> 0 then
      begin
        if GetModuleBaseName(Process,0,ModName,SizeOf(ModName)-1)>0  then
        begin
          if StrIComp(ModName,PChar('winword.exe')) = 0 then
            inc(Result);
        end;
        CloseHandle(Process);
      end;
    end;
  end;
end;

// Por ejemplo
ShowMessage(IntToStr(CuantosSomos));

[jorgegetafe]

MUUUUUUUUUUUUUUUUUUUUUUUCHAS GRACIAS jeje ahora ya me va de lujo :-)

[jorgegetafe]

Pos no, no me va :-( llamo a la función y no me muestra nada :-(

[alaparte]

Hola, he leido alguno de tus respuestas y creo que me podrias ayudar.
Como puedo saber en tiempo de ejecucion si un form esta activo o abierto?

Y otra pregunta, estoy desarrollando una aplicación de gestion empresarial. Que es mejor trabajar con ShowModal o no?

Un saludo Fran

[jorgegetafe]

Empezado por alaparte

Hola, he leido alguno de tus respuestas y creo que me podrias ayudar.
Como puedo saber en tiempo de ejecucion si un form esta activo o abierto?

Y otra pregunta, estoy desarrollando una aplicación de gestion empresarial. Que es mejor trabajar con ShowModal o no?

Un saludo Fran

A mi me preguntas? no tengo ni idea, lo siento macho :-(

[betiitooo]

Si te refieres a un form de los que creas con Delphi, me parece que lo puedes hacer checando la propiedad 'Showing' que te devuelve true si esta activo o false si no lo esta.
por ejemplo:
if tuFormulario.Showing then
begin
//lo que vas hacer si el formulario esta activo
end
else
begin
//lo que vas hacer si el formulario NO esta activo
end;

Con respecto a tu 2a. pregunta, usarlo o no depende de la disponibilidad de funciones, procesos, etc., que quieras que tu aplicación proporcione.