| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как заморозить программу SuspendedThread? [D6, WinXP]

Wadim ©   (2006-11-16 20:45:00) 

Ничего не работает, выдает ошибку Неверный дискриптор (getlasterror)
Делаю так:

HwndKontrol:=IntToStr(FindWindow(nil, pchar(CurCapt)));
//ShowMessage(HwndKontrol);
GetWindowThreadProcessID(StrToInt(HwndKontrol), @ProcessID);
GetParentProcessInfo(ProcessID, PathOpor);

 ListBox1.Items.Clear;

 hSnapshoot := CreateToolhelp32Snapshot(TH32CS_SNAPTHREAD, 0);

 if (hSnapshoot = -1) then
     Exit;
 lpte.dwSize := SizeOf(TThreadEntry32);

 if (Thread32First(hSnapshoot, Lpte)) then
 repeat
   //List.Objects[I] := Pointer(me32.th32ModuleID);
   //Err:=GetLastError;
   //ListBox1.Items.add(SysErrorMessage(Err));
   GetWindowThreadProcessID(lpte.th32ThreadID, @ProcessID);
   GetParentProcessInfo(ProcessID, Path);
    if PathOpor=Path then
    begin
   GetWindowThreadProcessID(lpte.th32ThreadID, @ProcessID);
   ProcessSuspend := OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcessID);
   //Err:=GetLastError;
   //ListBox1.Items.add(SysErrorMessage(Err));
   
   SuspendThread(ProcessSuspend);
   Err:=GetLastError;
   ListBox1.Items.add(SysErrorMessage(Err)+' '+IntToStr(PriorityW));

   //CloseHandle(ProcessSuspend);

   ListBox1.Items.Add(IntToStr(lpte.th32ThreadID)+' '+Path+' '+IntToStr(ProcessID)+' '+IntToStr(lpte.th32OwnerProcessID)+' '+IntToStr(ProcessSuspend)+' ProcessSuspend='+IntToStr(ProcessSuspend));
   end;
 until not Thread32Next(hSnapshoot, lpte);
    CloseHandle (hSnapshoot);



---

Чапаев   (2006-11-23 10:32:00) [1]

procedure FreezeProcess;
var
 Threads:TList;
 I:Integer;
 Th:THandle;
begin
 Threads:=TList.Create;
 GetProcessThreads(PID,Threads);
 for I := 0 to Threads.Count - 1 do begin
   Th:=OpenThread(2,False,Cardinal(Threads[I]));
   SuspendThread(Th);
   CloseHandle(Th);
 end;
 Threads.Free;
end;

---

Сергей М.   (2006-11-23 08:14:00) [2]

> Это понятно и реально для 98 винды, а как в XP меня интересует?


Цитата из msdn:

Requirements
Client  
Requires Windows Vista, Windows XP, Windows 2000 Professional, or Windows Me.

---

Wadim   (2006-11-23 01:14:00) [3]

>>OpenThread, msdn.

Это понятно и реально для 98 винды, а как в XP меня интересует?

---

Leonid Troyanovsky   (2006-11-16 22:31:00) [4]

> Wadim   (16.11.06 21:50) [2]
> Например, не понимаю как его получить?


OpenThread, msdn.

--
Regards, LVT.

---

Wadim   (2006-11-16 21:50:00) [5]

Например, не понимаю как его получить?
есть примеры?

---

BiN   (2006-11-16 20:56:00) [6]

SuspendThread должен принимать описатель потока.

---

Наверх