Каким образом можно приостановить выбранный процесс?
Например, приостановить процесс чата в локальной сети, чтобы окно оставалось, но никаких сообщений программа не обрабатывала.

Я так понимаю, что сначала надо по имени процесса получить его PID, потом по этому PID найти главный поток и сделать ему SuspendThread(ThreadHandle)?

Jetus
совершенно верно

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

Sleep(dwMilliseconds:DWORD);
Kernel32.dll

legwar
слип не останавливает, а передает процессорное время на указанное кол-во милисекунд другим процессам или потокам, причем удаленно его не сделать.

Петрович
??? тут же останавливается поток, который сообшения по сетки ловит?

Это сообщение отредактировал(а) Александра - 24.2.2005, 16:10

Цитата

Петрович ??? тут же останавливается поток, который сообшения по сетки ловит?

Я не понял что этим ты хотела сказать.
Я в в своем посте имел ввиду то, что отрисовка окна делается самим процессом, причем обычно его главным потоком. Соответственно, если приостановить тот поток процесса который обрабатывает WM_PAINT то, окно на экране останется лиш до тех мор пока его не подпортят. Например, если по нему проедутся другим окном, то затертая часть изображения не восстановится. Кроме того, естественно, такое окно нельзя будет ни таскать, ни перемещать, пока не "отпустят" поток.
А я так понял, что Jetus хочет что-бы окно-то осталось. Он хочет только приостановить прием сообщений по сетке.

Петрович
ну да, т.е. все и будет рисоваться а прием просто остановится... все верно...

Так мне так и надо - чтобы процесс полностью "замёрз".
А как это осуществить? Я пробовал, но ничего не вышло

останавливай все потоки процесса. а что пробовал?

Код

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;

Если нужно остановить какой-то процесс, к примеру, на 5 сек, то будет так:

Код

SetSuspendState (ProcessID, False); Sleep (5000); SetSuspendState (ProcessID, True);

PS: OpenThread нет в Win9x, поэтому там будет облом. Если надо, чтобы работало под 9x, то смотри "Арсенал" - там Girder приводил функцию OpenThread для всех версий винды...

Большое спасибо, p0s0l!

Уважаемый p0s0l, твой код отлично работает и я стал пробовать его на всех процессах подряд - останавливался даже поток System. Однако меня постигло разочарование, когда я попробовал остановить процесс navapsvc.exe - это служба Norton Antivirus'a. Этот процесс не желал останавливаться ни в какую! Даже принудительно завершатся не хочет через TaskManager и другие подобные менеджеры процессов. Как это может быть? Неубиваемый процесс???

попробуй включить привелегию: SE_DEBUG_NAME

Делается это так:

Код

procedure SetDebugPrivilege (Enabled : Boolean); var hToken : THandle;    TokenPriv, PrevTokenPriv : TOKEN_PRIVILEGES;    Tmp : DWORD; begin  OpenProcessToken (GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, hToken);  LookupPrivilegeValue (nil, 'SeDebugPrivilege', TokenPriv.Privileges[0].Luid);  TokenPriv.PrivilegeCount := 1;  TokenPriv.Privileges[0].Attributes := 0;  if Enabled then TokenPriv.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;  Tmp := 0;  PrevTokenPriv := TokenPriv;  AdjustTokenPrivileges (hToken, False, TokenPriv, SizeOf(PrevTokenPriv), PrevTokenPriv, Tmp);  CloseHandle (hToken); end;

Тогда выглядеть всё будет примерно так:

Код

SetDebugPrivilege (True);  SetSuspendState (ProcessID, False);  Sleep (5000);  SetSuspendState (ProcessID, True);

Цитата(Girder @ 28.2.2005, 10:29)

попробуй включить привелегию: SE_DEBUG_NAME

Не поможет.
Добавлено @ 19:52

Цитата(Jetus @ 28.2.2005, 10:16)

Как это может быть? Неубиваемый процесс???

Теоретически процесс убиваемый просто нужно обойти хук, каторым он защищен.
Как правило речь идет о некой специфической dll в каждом твоём процессе.