防止應用程式重複執行(使用 JEDI JCL JVCL)

bestlong

在 JEDI JVCL 有提供元件，在元件盤 Jv System 內有 JvAppInstances 元件，加入到主 Form 中就可以了

不過使用 JVCL 元件程式還是建立了主視窗，還有另一個法寶可以在應用程式初始化前就處理
可以使用 JCL 的 JclAppInst 類別
只要引入 JclAppInst 與執行一行檢查程式 JclAppInstances.CheckSingleInstance 就可以了

1. program Project1;
   
2. 
   
3. uses
   
4.   Forms,
   
5.   JclAppInst,
   
6.   Unit1 in 'Unit1.pas' {Form1};
   
7. 
   
8. {$R *.RES}
   
9. 
   
10. begin
    
11.   JclAppInstances.CheckSingleInstance;
    
12.   Application.Initialize;
    
13.   Application.CreateForm(TForm1, Form1);
    
14.   Application.Run;
    
15. end.

複製代碼

真的超簡單

關於 JCL 的用法是在下列網頁中看到了
Solnone 螺旋旅人 Delphi JEDI SingleInstance (單一執行程式)