ShellExecuteEx

[Chugun]

Доброго, уважаемые форумчане.
Пробую запустить программу через сабж.
Запускается, но возникает несколько вопросов.

1. не знаю почему, но SInfo.hProcess запускаемого не совпадает с реальным (понять не могу в чём затык)
приходится искать сначала окно (см ниже), по окну искать PID (GetWindowThreadProcessID), а по PID'у находить hProcess (OpenProcess) - геморрой в общем. не правильно это, имхо.
из всего этого мне реально необходим только OpenProcess c параметром Full_All_Access

2. как понять, какие формы создаёт запущенное приложение ?
в данный момент пользую FindWindow - не особо удобно, хотелось бы сделать универсальную вещь, которая не привязана к имени окна, а работает с окнами процесса, как бы они не назывались

возможно, не совсем точно излагаю свои мысли
простите неуча

[Человек_Борща]

1. Все там правильно, содержится хэндл процесса, а не его PID.
2. EnumWindows, EnumChildWindows, EnumThreadWindows. Изучайте эти функции.

[Chugun]

Сообщение от Человек_Борща

1. Все там правильно, содержится хэндл процесса, а не его PID.

при выполнении следующего кода

ShellExecuteEx(@SInfo);
GetProcessAffinityMask(SInfo.HProcess,cpuset,sysmask);
SetProcessAffinityMask(SInfo.HProcess,sysmask xor dword(1) xor dword(2));

для этого процесса должны выключаться первые два процессора из всех существующих в системе - этого не происходит
при выполнении кода

thwnd:=FindWindow(nil,'Client');
GetWindowThreadProcessId(thwnd, @PID);
thwnd:=openprocess(Process_All_Access,true,pid);
GetProcessAffinityMask(thwnd,cpuset,sysmask);
SetProcessAffinityMask(thwnd,sysmask xor dword(1) xor dword(2));

всё выключается так, как задумано
мб я не понимаю чего-то?

Сообщение от Человек_Борща

2. EnumWindows, EnumChildWindows, EnumThreadWindows. Изучайте эти функции.

посмотрю, спасибо