programa en ejecucion???

[Tanix]

Saben o conocen alguna funcion o procedimiento que sabiendo el nombre de un programa, detecte si esta en ejecucion o no? (Que funcione pa NT).

[Descendents]

var
P:integer;
begin
P:=FindWindow(nil,'Calculadora');
If P=0
then ShowMessage('No esta abierta')
else ShowMessage('Esta abierta')
end;

A ver si te sirve

[Tanix]

gracias descendents... salu2...