Saber si un proceso esta activo

[Anel Hernandez]

Hola,

Estoy buscando una funcion de la api de windows ke me permita saber si un programa que mande a ejecutar, del cual conozco su HANDLE (hProcess) esta abierto o cerrado.

Yo mando a ejecutar con ShellExecuteEx.

Gracias

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

[ecfisa]

Hola.

No recordaba si era necesario el argumento lpdwProcessId... y no, se puede prescindir de él. Es decir que la función puede ser escrita:

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

Un saludo.

[Anel Hernandez]

Gracias, lo voy a probar.

luego de poner el mensaje encontre la forma:

Código Delphi [-]
GetExitcodeProcess(h[k],ExitCode);
     if exitCode<>STILL_ACTIVE then  begin

pero no logro ponerlo en una sola linea. algo asi como:
if GetExitcodeProcess()=algo then ...

Pudieran ayudarme en poner esta variante en una sola linea?

despues vere cual es mas conveniente.

gracias mil