Нити в процессе

[JustLikeFar]

Здравствуйте... извиняюсь конечно если баян по вопросу,но я юзал поиск и даж в ручную читал темы по ВИНАПи!!Оо =)
ВОбще суть вопроса такая,мне нужно убить нить в процессе как она только появится(я знаю ее имя),и еще одну заСУСПЕНДить... объясните,пожалуйста,поподробнее... я оч плохой мастер делфи!Мое предназначение РНР=)Делфи только начал изучать))
Заранее благодарен. С.У. JustLikeFar

[JustLikeFar]

Сообщение от JustLikeFar

Здравствуйте... извиняюсь конечно если баян по вопросу,но я юзал поиск и даж в ручную читал темы по ВИНАПи!!Оо =)
ВОбще суть вопроса такая,мне нужно убить нить в процессе как она только появится(я знаю ее имя),и еще одну заСУСПЕНДить... объясните,пожалуйста,поподробнее... я оч плохой мастер делфи!Мое предназначение РНР=)Делфи только начал изучать))
Заранее благодарен. С.У. JustLikeFar

потокдругой программы,не у себя в приложении...

[rpy3uH]

Сообщение от JustLikeFar

мне нужно убить нить в процессе как она только появится(я знаю ее имя),и еще одну заСУСПЕНДить... объясните,пожалуйста,поподробнее...

у нитей нет имён, различить одну нить от другой очень сложно.

А так вот функции
createtoolhelp32snapshot(TH32CS_SNAPTHREAD,...)
Thread32First
Thread32Next
Потом
OpenThread
SuspendThread
TerminateThread

[JustLikeFar]

Сообщение от rpy3uH

у нитей нет имён, различить одну нить от другой очень сложно.

ну как то же их реально отличить?????
вобщем все равно спасибо!!!

[rpy3uH]

можно отличить по косвенным признакам. например, по времени на процессоре, или адресу TEB

[VladimirVB]

ОДИН ПОТОК МОЖЕТ ЗАВЕРШИТЬ ДРУГОЙ ПОТОК

function TerminateThread(
hThread: THandle; 	//дескриптор потока
dwExitCode: DWORD	//код завершения потока
): BOOL; stdcall;

В случае успешного завершения функция TerminateThread возвращает ненулевое значение, в противном случае — FALSE. Функция
TerminateThread завершает поток, но не освобождает все ресурсы, принадлежащие этому потоку. Это происходит потому, что при выпол-нении этой функции система не посылает динамическим библиотекам, загруженным процессом, сообщение о том, что поток завершает свою работу. В результате динамическая библиотека не освобождает ресурсы, которые были захвачены для работы с этим потоком. Поэтому эта функция должна вызываться только в аварийных ситуациях при зависании потока.

пример:

program TerminateThreadd;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows;

var
  count: Cardinal = 0;
  hThread: HWND;
  IDThread: DWORD;
  c: Char;
  b: Boolean = True;

procedure thread; stdcall;
var
  b: Boolean;
begin
  b := True;
  while b do
  begin
    count := count + 1;
    Sleep(100); // немного отдохнем
  end;
end;

begin
  hThread := CreateThread(nil, 0, @thread, nil, 0, IDThread);
  while b do
  begin
    Write('Input ''y'' to display the count or any char to finish: ');
    Readln(c);
    if c = 'y' then
      Writeln('count = ', count)
    else
      Break;
  end;

  //прерываем выполнение потока thread
  TerminateThread(hThread, 0);

  //закрываем дескриптор потока
  CloseHandle(hThread);
end.

[rpy3uH]

Сообщение от VladimirVB

ОДИН ПОТОК МОЖЕТ ЗАВЕРШИТЬ ДРУГОЙ ПОТОК

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