DELPHI 让程序只能运行一次

paulfzm

于 2013-03-20 16:21:38 发布

阅读量327

点赞数

CC 4.0 BY-SA版权

分类专栏： DELPHI 让程序只能运行一次

本文链接：https://blog.csdn.net/paulfzm/article/details/84410219

DELPHI 让程序只能运行一次专栏收录该内容

1 篇文章

订阅专栏

在你的程序的主FORM的FORMCREATE事件中，通过检查窗口句柄和错误代码来判断程序是否已经在运行，以避免重复启动。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在你的程序的主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;

//....这是你原来的代码继续下去