点X关闭不了程序怎么办?(50)

wlyft · 2009-05-27

程序中用了 Application.ProcessMessages;后在进行FOR中,点X关闭不了,还在跑,怎么才能点X关闭程序

znxia · 2009-05-27

procedure TForm1.Button1Click(Sender: TObject);begin while true do begin sleep(30)
application.ProcessMessages
if Application.Terminated then break
end;end;给分，呵呵

wlyft · 2009-05-27

不,因为很多地方用了,所以想在程序上点X就能关掉本程序,强行关掉不管有没有执行完

de410 · 2009-05-27

form1.close中加入application.Terminate;

liuls · 2009-05-27

最好的方法就是自己把代码整理好~! 不然就算你强行结束了, 也很难保证你所有资源都释放了~

草原骏马 · 2009-05-27

试试halt()

wlyft · 2009-05-27

de410,application.Terminate;不行

wlyft · 2009-05-27

我想要在程序上点X就能关掉本程序,强行关掉不管有没有执行完强行关

lcmlhs · 2009-05-27

帮顶，接分

hs-kill · 2009-05-28

......循环没结束当然关不掉啊....点X只是把WM_CLOSE消息送到消息队列等你的循环过程结束后才执行呢你可以考虑强制结束程序进程.....

dingcs · 2009-05-28

可以分步执行程序，设置断点，查看问题出在哪一步，像前面的老兄所说的，有线程未执行完，强行关闭，计算机资源也不一定释放的，多执行几次强行关闭，可能会造成计算机死机或非常慢的，编出来的程序效率也不高啊，所以建议还是从程序本身查起。

wlyft · 2009-06-17

不考虑点不点计算机资源不管计算机资源能不能释放的情况下,怎么强制关制本程序进程

znxia · 2009-06-17

任务管理器!你这样做出来的程序，让人怎么说才好呢。

de410 · 2009-06-17

那只有楼上的方法了~~

草原骏马 · 2009-06-18

在窗体的关闭事件了加入Halt;procedure TForm1.FormClose(Sender: TObject
var Action: TCloseAction);begin Halt;end;

白河愁 · 2009-06-18

看某2018 就知道应该怎么做了.

wind_2005 · 2009-06-18

var ph: THandle
id: Cardinal
ExitCode: DWORD;begin //中止进程 GetWindowThreadProcessId(Application.Handle, id)
ph := OpenProcess(PROCESS_TERMINATE, False, id)
GetExitCodeProcess(ph, ExitCode)
TerminateProcess(ph, ExitCode);end;

wind_2005 · 2009-06-18

以上代码XP运行正常，其他系统未测试

枝上柳绵 · 2009-06-18

application.ProcessMessages;在循环过程中,它是屏蔽了 wm_close 消息的所以你不可能简单的在循环过程中关闭窗体,我的经常用的方法是一设置一全局变量var fclose:boolean:=false;在 formclose 或 wmdproc 截取 wm_close 里设置fclose:=true;在procedure TForm1.Button1Click(Sender: TObject);里修改如下:begin while not fclose do begin sleep(30)
application.ProcessMessages
end
if fclose then this.close;end;

bbscom · 2009-06-19

通过“结束进程”就可以了。

点X关闭不了程序怎么办?(50)

wlyft

Unregistered / Unconfirmed

znxia

Unregistered / Unconfirmed

wlyft

Unregistered / Unconfirmed

de410

Unregistered / Unconfirmed

liuls

Unregistered / Unconfirmed

草原骏马

Unregistered / Unconfirmed

wlyft

Unregistered / Unconfirmed

wlyft

Unregistered / Unconfirmed

lcmlhs

Unregistered / Unconfirmed

hs-kill

Unregistered / Unconfirmed

dingcs

Unregistered / Unconfirmed

wlyft

Unregistered / Unconfirmed

znxia

Unregistered / Unconfirmed

de410

Unregistered / Unconfirmed

草原骏马

Unregistered / Unconfirmed

白河愁

Unregistered / Unconfirmed

wind_2005

Unregistered / Unconfirmed

wind_2005

Unregistered / Unconfirmed

枝上柳绵

Unregistered / Unconfirmed

bbscom

Unregistered / Unconfirmed

Similar threads