delphi 同时只能够运行一个程序。（网上搜的）

最新推荐文章于 2023-11-22 12:55:25 发布

wuqinyiu

最新推荐文章于 2023-11-22 12:55:25 发布

阅读量647

点赞数

CC 4.0 BY-SA版权

文章标签： delphi application windows

本文链接：https://blog.youkuaiyun.com/wuqinyiu/article/details/1789681

在Delphi项目中，通过引用Windows库并使用CreateMutex函数，可以实现应用程序的单实例运行。当检测到互斥量Error_Already_Exists时，会阻止第二个实例的启动，显示错误提示。

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

首先在项目文件(*.dpr)的uses段中添加Windows的引用，然后声明一个hWnd类型的变量hMutex：

var

hMutex:hWnd;

最后在项目文件的begin和end中添加以下代码：

Application.Initialize;

Application.Title:='test';

CreateMutex(nil,false,'test');

if GetLastError<>Error_Already_Exists then

begin

Application.CreateForm(TForm1, Form1);

Application.Run;

end

else

begin

Application.MessageBox('本程序只允许同时运行一个','Error');

end;

Application对象的Title属性的值可以根据自己的需要设置。通过CreateMutex函数来创建一个互斥量，如果GetLastError不等于Error_Already_Exists，也就是本程序的实例没有运行，那么就正常启动程序，反之则表示本程序的实例已经在运行，那么就会弹出一个对话框提示用户，不启动程序。