讓程式只執行一個例項

Windows 下一個典型的特徵就是多工，我們可以同時開啟多個視窗進行操作，也可以同時執行程式的多個例項，比如可以開啟許多個資源管理器進行檔案的移動複製操作。但有時出於某種考慮（比如安全性），我們要做出一些限制，讓程式只能夠執行一個例項。在Delphi程式設計中，筆者總結出了以下幾種方法：
　　一、 查詢視窗法
　　這是最為簡單的一種方法。在程式執行前用FindWindow函式查詢具有相同視窗類名和標題的視窗，如果找到了，就說明已經存在一個例項。在專案原始檔的初始化部分新增以下程式碼：
　　Program OneApp
　　Uses
　　Forms,Windows;（這裡介紹的幾種方法均需在專案原始檔中新增Windows單元，以後不再重複了）
　　Var Hwnd:Thandle;
　　Begin
　　 Hwnd:=FindWindow(‘TForm1’，‘SingleApp’);
　　 If Hwnd=0 then
　　 Begin
　　 Application.Initialize;
　　 Application.CreateForm(Tform1, Form1);
　　 Application.Run;
　　 End;
　　End;
　　FindWindow()函式帶兩個引數，其中的一個引數可以忽略，但筆者強烈建議將兩個引數都用上，免得湊巧別的程式也在使用相同的類名，就得不到正確的結果了。另外，如果是在Delphi IDE視窗中執行該程式，將一次都不能執行，因為已經存在相同類名和標題的視窗：設計時的窗體。
　　二、使用互斥物件
　　如果覺得查詢視窗的方法效率不太高的話，可以使用建立互斥物件的方法。儘管互斥物件通常用於同步連線，但用在這個地方也是非常方便的。僅用了4句程式碼就輕鬆搞定。
　　VAR Mutex:THandle;
　　begin
　　 Mutex:=CreateMutex(NIL,True,‘SingleApp’);
　　 IF GetLastError<>ERROR_ALREADY_EXISTS THEN//如果不存在另一例項
　　 BEGIN
　　 Application.CreateHandle;
　　 Application.CreateForm (TExpNoteForm, ExpNoteForm);
　　 Application.Run;
　　 END;
　　 ReleaseMutex(Mutex);
　　end.
　　三、全域性原子法
　　我們也可以利用向系統新增全域性原子的方法，來防止多個程式例項的執行。全域性原子由Windows 系統負責維持，它能保證其中的每個原子都是唯一的，管理其引用計數，並且當該全域性原子的引用計數為0時，從記憶體中清除。我們用GlobalAddAtom 函式向全域性原子新增一個255個位元組以內的字串，用GlobalFindAtom來檢查是否已經存在該全域性原子，最後在程式結束時用GlobalDeleteAtom函式刪除新增的全域性原子。示例如下：
　　Uses Windows
　　const iAtom=‘SingleApp’;
　　begin
　　 if GlobalFindAtom(iAtom)=0 then
　　 begin
　　 GlobalAddAtom(iAtom);
　　 Application.Initialize;
　　 Application.CreateForm(TForm1,Form1);
　　 Application.Run;
　　 GlobalDeleteAtom(GlobalFindAtom(iAtom));
　　 end
　　 else
　　 MessageBox(0,‘You can not run a second copy of this App’,‘’,mb_OK);
　　end.
　　利用全域性原子的引用計數規則，我們還可以判斷當前共運行了該程式的多少個例項：
　　var i:Integer;
　　begin
　　 I:=0;
　　while GlobalFindAtom(iAtom)<>0 do
　　 begin
　　 GlobalDeleteAtom(GlobalFindAtom(iAtom));
　　 i:=i＋1;
　　 end;
　　 ShowMessage(IntToStr(I));
　　end;
　　以上幾種方法在筆者的Delphi 4.0，中文Windows95下通過。