Есть хэндл окна, как получить хэндл потока, т.е.:
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;
...