Delphi 保证程序只运行一个实例

RAD Studio 10.2.3 测试√

---

1、找到相应的项目 – 鼠标右键 – 选择【查看源代码】

2、然后把源代码修改一下

program 这里项目名称;

uses
  Vcl.Forms, // 这是原本就有的，如果没有需要加上去，一般都是会有的
  windows,   // 这是需要已添加的
  Dialogs,   // 这是需要已添加的
  Unit1 in 'Unit1.pas' {Form1};  // 这个也是已经生成的

{$R *.res}

const                              // 这是添加的
  myatom='我的全局原子方法';         // 这是添加的
begin
  if GlobalFindAtom(myatom)=0 then // 这是添加的
  begin
    GlobalAddAtom(myatom);         // 这是添加的
    Application.Initialize;
    Application.MainFormOnTaskbar := True;  // 这里是因为我需要隐藏任务栏的图标，所以多了这一行
    Application.CreateForm(TForm1, Form1);
    Application.Run;
    GlobalDeleteAtom(GlobalFindAtom(myatom));  // 这是添加的
  end
  else
    showmessage('已经有一个实例在运行'); // 这是添加的

//  一般正常的是下面的这几行，放在 GlobalAddAtom(myatom);和 GlobalDeleteAtom(GlobalFindAtom(myatom));的中间
//  Application.Initialize;
//  Application.CreateForm(TForm1, Form1);
//  Application.Run;
end.

---

一点点笔记，以便以后翻阅。