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

[doutao82]

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

[doutao82]

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

[yitong0834]

关注

[aiirii]

你必須用
GetExitCodeThread
, 然後,
>>TerminateThread(FirstThread.handle,0);
第二個參數是
dwExitCode
[in] Exit code for the thread. Use the GetExitCodeThread function to retrieve a thread's exit value.

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

[doutao82]

procedure TMainForm.Button2Click(Sender: TObject);
var tag:integer;
begin
tag:=GetExitCodeThread(TTestThread);
TerminateThread(TTestThread.handle,tag);
end;

为什么不行？

[aiirii]

BOOL GetExitCodeThread(
HANDLE hThread,
LPDWORD lpExitCode
);

你用錯了!!

if GetExitCodeThread(TTestThread.handle,tag) then
TerminateThread(TTestThread.handle,tag);

[doutao82]

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

[aiirii]

應該用
FirstThread.handle

TTestThread 是個類名吧, 不可以直接用的, 你要用實例的handle

[greenwaterandice]

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

end;