我是靠谱客的博主 高挑外套,这篇文章主要介绍DELPHI 让程序只能运行一次,现在分享给大家,希望可以做个参考。

复制代码
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
在你的程序的主FORM 的 FORMCREATE 事件里面添加如下的代码: procedure 主FORM.FormCreate(Sender: TObject); var errno:integer; hmutex:hwnd; begin hmutex:=createmutex(nil,false,pchar(application.Title)); errno:=getlasterror; if errno=error_already_exists then begin ShowMessage('程序已经在运行了'); Application.Terminate; self.Close();//关闭重复启动的程序 end; //....这是你原来的代码继续下去

最后

以上就是高挑外套最近收集整理的关于DELPHI 让程序只能运行一次的全部内容,更多相关DELPHI内容请搜索靠谱客的其他文章。

本图文内容来源于网友提供,作为学习参考使用,或来自网络收集整理,版权属于原作者所有。
点赞(76)

评论列表共有 0 条评论

立即
投稿
返回
顶部