我用TerminateThread(FirstThread.handle,0);为什么无法中止线程？

Question

还有，为什么同时执行两个线程的过程中，为什么就无法在这个窗体中进行其他操作？

Answer 1

你必須用
GetExitCodeThread
, 然後, 
>>TerminateThread(FirstThread.handle,0);
第二個參數是
dwExitCode 
[in] Exit code for the thread. Use the GetExitCodeThread function to retrieve a thread's exit value. >>为什么同时执行两个线程的过程中，为什么就无法在这个窗体中进行其他操作？
你的操作有問題!!!!

Answer 2

procedure TMainForm.Button2Click(Sender: TObject);
var tag:integer;
begin
    tag:=GetExitCodeThread(TTestThread);
    TerminateThread(TTestThread.handle,tag);
end;为什么不行？

Answer 3

BOOL GetExitCodeThread(
  HANDLE hThread,
  LPDWORD lpExitCode
);你用錯了!!if GetExitCodeThread(TTestThread.handle,tag) then
 TerminateThread(TTestThread.handle,tag);

Answer 4

if GetExitCodeThread(TTestThread.handle,tag) 
为什么总提示TTestThread.handle有问题？如：(Method identifier expected)

Answer 5

應該用
FirstThread.handleTTestThread 是個類名吧, 不可以直接用的, 你要用實例的handle

Answer 6

没错呀，TTestThread使我建的线程名！

Answer 7

tag:cardinal;//delphi7中可以这样结束线程
if GetExitCodeThread(ThreadZYTongJi.Handle,tag) then   // 中断统计
        begin
          TerminateThread(ThreadZYTongJi.Handle,tag);
   
        end;