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

60 阅读 0 评论 40 点赞

我是靠谱客的博主虚幻老鼠，最近开发中收集的这篇文章主要介绍delphi 同时只能够运行一个程序。（网上搜的），觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

首先在项目文件(*.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，也就是本程序的实例没有运行，那么就正常启动程序，反之则表示本程序的实例已经在运行，那么就会弹出一个对话框提示用户，不启动程序。