procedure thread1;
begin
...
.......
if close=true then //當close為true時
begin
winexec(pchar(application.exename),sw_normal); //重啟自身程序
application.Terminate; //退出程序 //這一動作失效,程序沒有退出
end;
end;
h:=beginthread(nil,0,@thread1,nil,0,hid);

你是要在當前App退出後, 再重新啟動這個App吧. 
你可以把這段退出重新開啟的代碼遷到Project代碼中執行. 如下面一樣:

<textarea class="delphi" rows="10" cols="60" name="code"> Application.Run; //在Application.Run後添加重啟代碼 if GlobalVarUnit.DoLoginOut then //這裡的GlobalVarUnit.DoLoginOut是個標記變量, 相當於你那個 //Close = True if ShellExecute(0, 'Open', PChar(ParamStr(0)), 'relogin', '', SW_SHOWNORMAL) <= 32 then Application.MessageBox( PChar(GB2Big5('对不起，执行注销时发生系统故障. 请在 LiveGPS 客户端退出后重新运行.') #13#10), PChar(GB2Big5(Format('注销失败(系统错误码:%d)', [GetLastError]))), 16);</textarea>

===================引 用 takdick 文 章===================
procedure thread1;
begin
...
.......
if close=true then //當close為true時
begin
winexec(pchar(application.exename),sw_normal); //重啟自身程序
application.Terminate; //退出程序 //這一動作失效,程序沒有退出
end;
end;
h:=beginthread(nil,0,@thread1,nil,0,hid);

------
------------------------
博采眾家之長,奉獻綿薄之力
------------------------

不,我是要在線程中關閉程序(不是退出線程),但上述代碼只能開啟多一個自身程序,卻沒有執行application.terminate;

煩請指教,謝謝.

關閉程序是指？退出線程並關閉程式嗎？
===================引 用 takdick 文 章===================
不,我是要在線程中關閉程序(不是退出線程),但上述代碼只能開啟多一個自身程序,卻沒有執行application.terminate;

是的.
在線程裡好像無法直接關閉程序,只好新增一boolean,在另一過程裡判斷再退出.
是否有更好的辦法呢?

<textarea class="cpp" rows="10" cols="60" name="code">WinExec(Application->ExeName.c_str(),SW_NORMAL); SendMessage(Application->Handle,WM_CLOSE,0,0); </textarea>
使用SendMessage方式不知是否能符合您的需求，這是 BCB 的Code 您自行修改試試看
===================引 用 takdick 文 章===================
是的.
在線程裡好像無法直接關閉程序,只好新增一boolean,在另一過程裡判斷再退出.
是否有更好的辦法呢?

------
~§~迷時師渡，悟了自渡~§~

若是new一個Thread的話
在Execute裡
<textarea class="delphi" rows="10" cols="60" name="code">procedure Execute(); begin while not self.Terminated do begin end; end; </textarea>
當收到Terminate
就會結束線程了。
不知道這是不是你要的答案
若在主要的程式，關閉的話
你試看看self.Close;
應該就能關掉了
===================引 用 takdick 文 章===================
是的.
在線程裡好像無法直接關閉程序,只好新增一boolean,在另一過程裡判斷再退出.
是否有更好的辦法呢?

編輯記錄