[ecfisa]

Hola Anel.

Probá de este modo:

Código Delphi [-]
function ProcessActive(Hnd: THandle): Boolean;
var
  ProcessID: DWORD;
begin
  Result:= GetWindowThreadProcessID(Hnd, @ProcessID) <> 0;
end;

Llamada:

Código Delphi [-]
  ...
  if ProcessActive(HandleProcess) then
    ShowMessage('Activo')
  else
    ShowMessage('Inactivo');
  ...

Saludos.