概述
在你的程序的主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 让程序只能运行一次所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
![delphi中，让程序只运行一次的方法[1]delphi中，让程序只运行一次的方法[1]](/uploads/reation/bcimg5.png)
发表评论 取消回复