OpenThread неправильно указан параметр

[Stilet]

Всем доброго. Есть задача ставить на паузу-пуск один процесс, который грузит процессор на 100%. Предполагаю что постановка его на паузу снимет загрузку, и позволит работать другим программам.
Для этого пытаюсь использовать следующие действия:
1) Создаю процесс:

 CreateProcess('C:\WINDOWS\system32\cmd.exe','/c '+pth+'foxprox main.app', nil, nil, true,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil, nil, si, pi)

Не обращайте внимание на отсутствие проверки правильной отработки функции, я ее еще не прикрутил.

2) Пытаюсь открыть процесс с доступом на остановку:

var t:THandle;
begin
 SetLastError(0);
 t:=OpenThread(2,false,pi.dwThreadId);
 if t=0 then RaiseLastWin32Error else
  SuspendThread(t);
end;

В результате получаю ошибку: Неверный параметр на функции OpenThread.

Подскажите что именно я неверно передаю.

функция у меня описана так:\

  function OpenThread(dwDesiredAccess:DWORD;bInheritHandle:BOOLEAN;dwThreadId:DWORD):THandle; external 'Kernel32.dll';

Согласно

HANDLE WINAPI OpenThread(
__in DWORD dwDesiredAccess,
__in BOOL bInheritHandle,
__in DWORD dwThreadId
);

Заранее спасибо.

[Пепел Феникса]

1) почему бы не стартануть его на паузе? флаг CREATE_SUSPENDED.
2)в pi есть hThread, уже открытый хендл главного потока

да и кстати, если процесс создает еще потоки, то ты не их поставишь на паузу, а лишь главный(первый)

[Stilet]

почему бы не стартануть его на паузе?

А потом? Нужно чтоб пользователь, поработав, поставил на паузу, а после по надобности разморозил и продолжал работать. При старте у него спрашивается логин - он должен его ввести, так что старт с паузой не подойдет.

в pi есть hThread, уже открытый хендл главного потока

С ним тоже что-то не то. Я еще попробую раз но на нем вылезала ошибка при первой пробе.

если процесс создает еще потоки, то ты не их поставишь на паузу, а лишь главный(первый)

За это я не беспокоюсь - это ДОС программа, врядли она потоками орудует

Меня больше интересует почему такая ошибка выдается странная...

[Пепел Феникса]

так, Виталий, чтото не учел я одного, ты ведь запускаешь cmd, а потом уже он запускает нужный процесс, так?
если так то оно и понятно, cmd то закрывается как запустит приложение.
может тебе стоит искать нужный процесс по имени, брать pid потом открывать его и орудовать с ним?(еще можно в сторону Jobs глянуть, но в Делфи помоему их не было, всмысле заголовочников, разве что в Jedi смотреть)

[Stilet]

Ты меня подтолкнул таки к правильному ответу.

if not CreateProcess(nil,'D:\Ukrpost\GetPlat\foxprox.exe main.app', nil, nil, true,
    CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS , nil, 'D:\Ukrpost\GetPlat\', si, pi)
then RaiseLastWin32Error;

На сей раз NTVDM без каких либо добавок (впрочем позже я попробую это с cmd).
И правильным решением было:

SuspendThread(pi.hThread);

А не dwThreadId как описано в хелпе.