delphi 关于关闭操作

于 2017-11-14 02:26:00 发布
阅读量401 收藏
点赞数
原文链接：https://yq.aliyun.com/articles/447873
版权

   delphi 关闭(close或点spacer.gif叉)操作并不难销毁进程，

   所以建议在delphi编程中为每个主form(登录,界面)加close事件

   

1
2
3
4
procedure  TForm1 . FormClose(Sender: TObject;  var  Action: TCloseAction);
begin
Application . Terminate;
end ;


本文转自lilin9105 51CTO博客，原文链接：http://blog.51cto.com/7071976/1220061，如需转载请自行联系原作者
DELPHI关闭当前进程
08-08
DELPHI实现关闭自身的进程，源码很全，复制就能用
Delphi关闭外部已打开的exe程序
05-18
总之，Delphi关闭外部已打开的exe程序需要理解进程管理的概念，熟练使用Windows API，并具备一定的系统编程知识。通过结合上述API函数，你可以创建一个工具，模拟系统任务管理器的部分功能，实现对目标进程的监控和...
Delphi窗体的close,free,destroy等
jdl2011的专栏
07-17 1508
[本人baidu博客全部搬家到csdn,baidu博客地址：http://hi.baidu.com/new/miracleconf] Delphi对窗体的关闭有多个函数： Hide Close Free Release Destroy Terminate FreeAndNil() Halt 这些函数的区别是什么呢？ Free：先对象判断不为空再destro
Delphi：程序自己删除自己，适用于任何windows版本(含源码)
weixin_30354675的博客
08-03 362
Delphi：程序自己删除自己，适用于任何windows版本(含源码) function Suicide: Boolean; var sei: TSHELLEXECUTEINFO; szModule: PChar; szComspec: PChar; szParams: PChar; begin szModule := AllocMe...
Delphi_捕获TWebBrowser的Close事件
RENYUAN
12-04 1678
Delphi使用TWebBrowser控件开发自己的浏览器，如果访问的网页有关闭窗口的JavaScript代码，那么TWebBrowser控件被注销，但应用程序本身并没有关闭，这似乎不是软件开发者乐意看到的。下面的示例介绍了一种捕获网页被关闭的消息的方法： 1. 首先在应用程序窗体上添加一个TApplicationEvents控件（在Additional页上） 2. 编写该控件的OnMessa
delphi7操作word
07-09
而当我们需要在Delphi 7程序中与Microsoft Word交互时，通常会涉及到对Word文档的操作，比如插入文字和表格。本篇文章将深入探讨如何使用Delphi 7来控制Word进行这些操作。 首先，我们需要了解的是，Delphi 7可以...
定时自动关闭的对话框或消息框【Delphi】.rar
07-10
在 Delphi 编程环境中，有时我们希望创建的对话框或消息框能在用户不进行任何操作的情况下自动关闭，以提供更好的用户体验。这个“定时自动关闭的对话框或消息框【Delphi】”示例就提供了这样的功能。它利用 Delphi ...
delphi 文件的操作
最新发布
12-19
除了上述提及的文件操作类，Delphi还提供了丰富的文件处理函数，如FileOpen、FileRead、FileWrite、FileClose等，这些函数能够直接操作文件句柄，对文件进行读写和关闭操作。另外，Delphi的SysUtils单元中还包含了...
delphi操作excel.doc
02-13
### Delphi 操作 Excel 的关键技术知识点 #### 一、Delphi 操作 Excel 的基础概念 在 Delphi 中，可以通过 COM（Component Object Model）自动化技术来操作 Microsoft Office 应用程序，如 Excel。这种方式允许 ...
DELPHI动态创建删除FRAME---示例源码
05-09
DELPHI动态创建删除FRAME unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,FM; type TForm2 = class(TForm) Panel1: TPanel; Button2: TButton; ScrollBox1: TScrollBox; procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; type TFM = Array Of TFrame1; var Form2: TForm2; aFM: TFM; procedure DeleteArrItem(var arr: TFM ; Index: Integer);stdcall; implementation {$R *.dfm} procedure DeleteArrItem(var arr: TFM ; Index: Integer); var Count: Cardinal; i:integer; begin Count := Length(arr); if (Count = 0) or (Index = Count) then Exit; Move(arr[Index+1], arr[Index], (Count-Index)* SizeOf(arr[0])); SetLength(arr, Count - 1); for I := 0 to Length(arr) - 1 do begin arr[i].Label1.Caption:=inttostr(i); end; end; procedure TForm2.Button2Click(Sender: TObject); var fram:TFrame1; begin SetLength(aFM,length(aFM)+1); aFM[length(aFM)-1] :=TFrame1.Create(nil) ; fram:=aFM[length(aFM)-1]; fram.Label1.Caption:=inttostr(length(aFM)-1); fram.Parent:=ScrollBox1; end; end. unit fm; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TFrame1 = class(TFrame) GroupBox1: TGroupBox; Label1: TLabel; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; implementation uses unit2; {$R *.dfm} procedure TFrame1.Button1Click(Sender: TObject); begin DeleteArrItem(aFM,strtoint(label1.Caption)); ( Sender as Tbutton ).Parent.Parent.Destroy; end; end.
delphi 实现延时自动关闭对话框 20200407.Demo_DlgAutoClose.zip
04-08
delphi7代码编辑运行环境下，Delphi Messagebox自动关闭功能演示代码，以及可运行程序，无须任何.net编译平台，windows下原生程序。 使用方法：打开对话框前调用 SetDlgAutoClose { 参数1： 设定多长时间后关闭 } { 参数2： 是否在对话框标题栏进行倒计时提示 } 代码包括了一个功能类，也就是unt_TimerDlg单元，主程序可以调用两种方法，实现不同效果。这种可自动关闭的对话框，适合各种管理系统or监控程序的提醒告知功能。 欢迎csdn好友下载，交流分享
Delphi中frame的使用
07-28
Delphi中frame的使用Delphi中frame的使用Delphi中frame的使用Delphi中frame的使用Delphi中frame的使用
delphi 程序强制结束自身
全粘工程师
06-06 5235
procedure KillSelf; begin Sleep(1000); if not TerminateProcess(GetCurrentProcessId, 0) then WinExec(PChar('TaskKill /F /PID ' + inttostr(GetCurrentProcessId)), SW_SHOWMINIMIZED); end;
Delphi 中表单各种关闭方法的区别
weixin_30563917的博客
12-01 187
表示关闭的有hideclosefreereleasedestroyterminatefreeandnil()haltfree:先判断不为空再destroy。释放对象，对于窗体来说，只会释放对象，而不将窗体对象的指针指向nil，所以free后用assigned函数来判断还是返回true．只有freeandnil或free后再将指针指向nil．destroy：不判断直接释放。如果对象已经释放...
delphi关闭程序有几种方法
热门推荐
chengs_的专栏
04-22 1万+
 delphi关闭程序有几种方法？ 在Delphi中，对于的关闭有free,close,closeQuery,Destroy,Terminate,halt等，它们的区别是什么？是不是还有别的关闭方法？ 谢谢！ Application.Terminate中止应用程序的运行，比较安全。而Halt则完全停止程序，这种完全停止，会忽略任何try finally块、任何finalization语句块
Delphi中几种关闭方法的介绍和比较(转)
weixin_30897079的博客
05-24 195
表示关闭的方法有如下几种， Hide Close Free Release Destroy Terminate FreeAndNil() Halt Free：先对象判断不为空再destroy。释放对象，对于窗体来说，只会释放对象，而不将窗体对象的指针指向nil，所以free后用assigned函数来判断还是返回true，只有freeandnil或free后再将指针指向nil。 ...
delphi学习点滴—几个关闭函数
lynnelxl的专栏
12-22 470
表示关闭的有如下函数： hide、close、free、release、destrory、terminate、freeandnil()、halt   详解： free:先判断不为空再destroy。释放对象，对于窗体来说，只会释放对象，而不将窗体对象的指针指向nil，所以free后用assigned函数来判断还是返回true．只有freeandnil或free后再将指针指向nil。 de
Delphi中几种关闭方法的介绍和比较
chinalog的专栏
09-08 1534
表示关闭的方法有如下几种，HideCloseFreeReleaseDestroyTerminateFreeAndNil()HaltFree：先对象判断不为空再destroy。释放对象，对于窗体来说，只会释放对象，而不将窗体对象的指针指向nil，所以free后用assigned函数来判断还是返回true，只有freeandnil或free后再将指针指向nil。
Delphi实现禁止Windows操作系统关闭的工具
标题：“禁止Windows关闭操作系统 (源代码)” 知识点： - 该标题表明有一个软件项目或程序旨在防止Windows操作系统执行关闭操作。这可能涉及到修改系统的关机流程，例如通过创建一个守护进程来阻止关闭命令的执行。 ...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值