esta ejecutandose una aplicacion en NT?

[jmbarrio]

Yo quiero saber si se me esta ejecutando un programa llamado chat.exe

a que equivale el TForm1 en la solucion que me has dado?

[Coco]

perdon, entendi que querias saber si tu aplicacion estaba ejecutandose.

Aqui va otro ej, sacado de Trucomania, donde puedes saber si un exe esta ejecutandose pero necesitas saber el path donde se encuentra el mismo.

procedure TForm1.Button1Click(Sender: TObject);

function EstaEjecutandose (ExeFile:string): boolean;
var H:word;
begin
H:=CreateFile(PChar(ExeFile), GENERIC_READ, 0, nil, OPEN_EXISTING, 0, 0);
Result := (H >= 65535);
CloseHandle(H);
end;
begin
if EstaEjecutandose ('c:\windows\notepad.exe')
then Label1.Caption:='SI/YES'
else Label1.Caption:='NO';
end;

Espero que te sirva. Saludos

[jmbarrio]

Muchas gracias por las molestias , ahora voy a probar si me funciona.

Un saludo.

[jmbarrio]

Lo he probado y no me ha funcionado el valor que me devuelve H es el mismo
si tengo el .exe ejecutandose o no.

Un saludo.