![](https://img-blog.csdnimg.cn/20201014180756928.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi
文章平均质量分 65
popo278905570
这个作者很懒,什么都没留下…
展开
-
Delph-- 关闭程序后托盘图标显示
1.需要引入UnitTrayIcon.pas文件(见附件) 2.声明双击事件 procedure trayDblClick(Sender: TObject); 3.功能实现 var frmMain: TfrmMain; tray: TTrayNotifyIcon; //窗口初始化 procedure TfrmMain.FormCreate(Sender:原创 2014-12-08 09:35:03 · 610 阅读 · 0 评论 -
Delphi----怎样保证程序只运行一个实例
在project启动文件编辑以下内容,可保证程序只运行一个实例。 var mymutex: THandle; begin mymutex := CreateMutex(nil, True, '营收数据自检系统'); if GetLastError begin Application.Initialize; Application.Title :=原创 2014-12-08 09:23:48 · 225 阅读 · 0 评论 -
Delphi-- 如何设置程序开机运行(写注册表)
1.需引入注册表单元Registry //------------------------------------------------------------------------------ // 开机运行选项 //------------------------------------------------------------------------------原创 2014-12-08 09:48:31 · 284 阅读 · 0 评论