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.