技術標籤：Delphi 筆記delphiexe

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.

一點點筆記，以便以後翻閱。