Есть хэндл окна, как получить хэндл потока, т.е.:
var
HW: HWND;
ProcessId, HProcess, ThreadId, HThread: Cardinal;
...
HW:=FindWindow(nil,'Chessmaster 10th Edition');
if HW > 0 then begin
ThreadId:=GetWindowThreadProcessId(HW,ProcessId);
HProcess:=OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId);
HThread:=?????????????;
...
SuspendThread(HThread);
end;
...

Здравствуйте, Gukov, Вы писали:

OpenThread

Спасиб !
Можно еще вопрос:
Как получить список всех потоков в процессе ?

Здравствуйте, Gukov, Вы писали:

G>Как получить список всех потоков в процессе ?

API: CreateToolhelp32Snapshot() с флагом TH32CS_SNAPTHREAD (параметр th32ProcessID ставить в 0), Thread32First(), Thread32Next(). Далее следуй инструкции:

To identify the threads that belong to a specific process, compare its process identifier to the th32OwnerProcessID member of the THREADENTRY32 structure when enumerating the threads.