Немедленная остановка потока.

[Stilet]

Вот наскорую руку накропал такое принудительное останавливание.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
    function tf:dword;
var  tid:Cardinal; th:THandle;
  Form1: TForm1;

implementation


{$R *.dfm}
 //********** FUNCTION **********
 function tf;
 var i:DWORD;
 begin
 repeat
    GetExitCodeThread(th,i);
    form1.Caption:=TimeToStr(now)+ ' '+inttostr(i);
    sleep(100)
 until  i=11;
 end;
 //********** END FUNCTION ******  {}


procedure TForm1.FormCreate(Sender: TObject);
begin
th:=CreateThread(0,0,@tf,0,CREATE_NEW,tid);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TerminateThread(th,11);

end;

end.

Материал отсюдова:
http://wm-help.net/books-online/book.../59464-23.html

[BOBAH13]

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

[Altera]

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

Нет нельзя. Вы видать не понимаите что такое поток...

Согласен! Я многого ещё не понимаю. Однако, я хорошо понимаю, что должен существовать какой-то способ остановки потока. Возьмём к примеру игру FERZ, или мою реализацию этой игры (Queen Battles, собственно которая меня и побудила к написанию этой темы). Есть, экспортируемая из DLL, процедура, допустим, хода (GetStep). Так вот. Допустим, бот думает долго или вообще завис. Что, вместе с ним должна висеть и моя прога? Если сильно упростить структуру QueenBattles, то получается, что GetStep вызывается в потоке, т.е. в процедуре execute, а это значит, что пока GetStep не выполниться не выполняться и последующие строчки. Может в GetStep (демонстрируя невнимательность автора бота) запустился бесконечный цикл. Что, моя прога обречена на аварийное выключение из диспетчера задач?

Stilet, алгоритм (пост #11) не пашет. Caption у формы просто пустым делается.

[BOBAH13]

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

[Altera]

Я почитаю
Но не может быть, что-бы поток насильно нельзя было-бы остановить.

[BOBAH13]

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

Я почитаю
Но не может быть, что-бы поток насильно нельзя было-бы остановить.

Я же сказал... вам виндовс не даст права супервизора только API и дождатся очереди выполнения вашего кода

[Altera]

Вроде разобрался. Вот только, как синхронизацию проводить? что-бы окна открывать и закрывать?