关于Application.Terminate

本文详细介绍了如何使用Application.Terminate来结束程序,并解释了其实际作用原理为调用PostQuitMessage()。此外还提到,该操作并不会立即结束程序流程,而是会继续执行Application.Terminate后面的代码直至程序主窗口Form过程结束。

Application.Terminate   结束程序   还会执行   Application.Terminate后面的代码到   end   ..  
  实际上是调用   PostQuitMessage();   

一般要执行完主窗口Form的过程

function LoadDLL(Sender: TObject): Boolean; var CreateMainForm : function: TForm; stdCall; B : Boolean; begin Result := False; B := ParentIs('BDS.EXE'); SendMessage(frmsplash.Handle, Msg_Main, 204, 4); CheckParent; DM.ServerName := ''; DM.SysType := 0; uFunc.wpGrade.ParentName := 'gPallas.exe'; uFunc.wpGrade.SysName := 'gPallas'; uFunc.wpGrade.ProjectName := GetIniValue('gPallas', '项目名称', '广东省交通工程质量综合管理平台'); try Application.ProcessMessages; frmsplash.FormStyle := fsNormal; if not uFunc.wpGrade.UpgradeStartup(True) then Exit; frmsplash.FormStyle := fsStayOnTop; Application.ProcessMessages; SendMessage(frmsplash.Handle, Msg_Main, 204, 1); frmsplash.FormStyle := fsNormal; Application.ProcessMessages; if not LoadDLL_Resource then Exit; //资源文件,与其他无关 if not B then frmsplash.FormStyle := fsStayOnTop; Application.ProcessMessages; frmsplash.FormStyle := fsNormal; Application.ProcessMessages; if not LoadDLL_wpFunc then Exit; //通用函数,与其他无关 if not B then frmsplash.FormStyle := fsStayOnTop; Application.ProcessMessages; frmsplash.FormStyle := fsNormal; Application.ProcessMessages; if not LoadDLL_weepalsc(True) then Exit; //扩展函数,关联 wpFunc.DLL、UDM if not B then frmsplash.FormStyle := fsStayOnTop; Application.ProcessMessages; if lhwpBasic = 0 then Exit; @CreateMainForm := GetProcAddress(lhwpBasic, PAnsiChar('_CreateMainForm')); if @CreateMainForm = nil then Exit; if CreateMainForm = nil then Exit; except on E: Exception do begin ShowMessage(E.Message); TerminateProcess(OpenProcess(PROCESS_TERMINATE, Bool(0), GetCurrentProcessId), 0); end; end; Result := True; end;
最新发布
10-30
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值