Заморозка и возобновление процесса

[logitech12]

Всем добрый день! Сразу к делу,
Есть такая прога Process Explorer , там можно выбрать запущенный exeшник и заморозить его (приостановить) и потом возобновить..
Подскажите код, как это реализовывается на Delphi
Заранее спасибо!

[Swarog]

поиск рулит

goooogle

там в первых строках ссылки, выкладывать не буду так как ведут на чужой форум

[logitech12]

uses TlHelp32;
function OpenThread (dwDesiredAccess : DWORD; bInheritHandle : BOOL; dwThreadId : DWORD) : THandle; stdcall; external 'kernel32.dll';
const
  THREAD_SUSPEND_RESUME = $0002;
procedure SetSuspendState (PID : DWORD; Resume : Boolean);
var
  hSnap, hThread : THandle;
  te32 : THREADENTRY32;
begin
  hSnap := CreateToolhelp32Snapshot (TH32CS_SNAPTHREAD, 0);
  te32.dwSize := SizeOf(te32);
  if Thread32First (hSnap, te32) then
  repeat
    if te32.th32OwnerProcessID = PID then
    begin
      hThread := OpenThread (THREAD_SUSPEND_RESUME, False, te32.th32ThreadID);
      if Resume then ResumeThread (hThread)
      else SuspendThread (hThread);       
      CloseHandle (hThread);
    end;
  until not Thread32Next (hSnap, te32);
  CloseHandle (hSnap);
end;

кучу ошибок компилятор выдает..
и как найти pid?

[logitech12]

заморозка ладно... вроде разобрался, а как вытащить ИД процесса? если он не имеет окна

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

Уличить по тому, что есть у процесса. ИМХО вынимать PID по окну заведомо ложно и глупо(Я так никогда не делаю).

[logitech12]

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

Уличить по тому, что есть у процесса. ИМХО вынимать PID по окну заведомо ложно и глупо(Я так никогда не делаю).

а как Вы делаете? и можно ли вытащить просто по названию процесса?
типо "process.exe" ?

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

Если известно имя процесса, то да.
Посмотрите что есть у вашей программы.. и по нему определяйте. Есть окно - опр. по окну. Известен процесс - возможностей ещё больше....

[logitech12]

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

Если известно имя процесса, то да.
Посмотрите что есть у вашей программы.. и по нему определяйте. Есть окно - опр. по окну. Известен процесс - возможностей ещё больше....

а не покажете на конкретном примере? окна нет
известно из диспечера название и все. например process.exe

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

А поиском по форуму?

[logitech12]

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

А поиском по форуму?

я бы не писал, если бы не искал.