Una funcion que me diga si un programa esta abierto

[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?