Delphi只能运行一个程序实例的两种方法

　2010-10-19 13:55:02　来源：WEB开发网　闂傚倸鍊风欢姘缚瑜嶈灋闁圭虎鍠栫粻顖炴煥閻曞倹瀚�

闂傚倸鍊风粈渚€骞夐敓鐘插瀭闁汇垹鐏氬畷鏌ユ煙閹殿喖顣奸柛搴＄У閵囧嫰骞掗幋婵冨亾閻㈢ǹ纾婚柟鐐灱濡插牊绻涢崱妤冃℃繛宀婁簽缁辨捇宕掑鎵佹瀸闂佺懓鍤栭幏锟�

濠电姷鏁告慨顓㈠箯閸愵喖宸濇い鎾寸箘閹规洟姊绘笟鈧ḿ褍煤閵堝悿娲Ω閳轰胶鍔﹀銈嗗笂閼冲爼鍩婇弴銏＄厪闁搞儮鏅涙禒褏绱掓潏鈺佷槐闁轰焦鎹囬弫鎾绘晸閿燂拷闂傚倸鍊风欢姘缚瑜嶈灋闁圭虎鍠栫粻顖炴煥閻曞倹瀚�　　闂傚倸鍊烽懗鑸电仚缂備胶绮〃鍛村煝瀹ュ鍗抽柕蹇曞У閻庮剟姊虹紒妯哄妞ゆ劗鍘ч埥澶娢熼柨瀣偓濠氭⒑瑜版帒浜伴柛鎾寸☉閳绘柨顫濋懜纰樻嫼闂佸憡绋戦オ鏉戔枔閺冣偓缁绘稓浠﹂崒姘瀳闂佸磭绮幑鍥嵁鐎ｎ亖鏀介柟閭﹀墯椤斿倹淇婇悙顏勨偓鏍ь潖婵犳艾鍌ㄧ憸蹇涘箟閹绢喗鏅搁柨鐕傛嫹

核心提示：两种方面都是运行在project/view source里编辑，一个是利用Windows系统的全局原子，Delphi只能运行一个程序实例的两种方法，另一个是利用API函数比较同类同名窗体，1.全局原子利用向系统添加全局原子的方法，用GlobalFindAtom来检查是否已经存在该全局原子，最后在程序结束时用Globa

两种方面都是运行在project/view source里编辑。一个是利用Windows系统的全局原子，另一个是利用API函数比较同类同名窗体。

1.全局原子
　利用向系统添加全局原子的方法，全局原子由Windows 系统负责维持，它能保证其中的每个原子都是唯一的，管理其引用计数，并且当该全局原子的引用计数为0时，从内存中清除。我们用GlobalAddAtom 函数向全局原子添加一个255个字节以内的字符串，用GlobalFindAtom来检查是否已经存在该全局原子，最后在程序结束时用GlobalDeleteAtom函数删除添加的全局原子。示例如下：

program Project1;
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,'你已经运行了这个投影程序','',mb_OK);
end.

2.API函数

program Project1;
uses
　 Forms,Windows, Unit1 in 'Unit1.pas' {Form1};
var Hwnd:THandle;
begin
　 Hwnd:=FindWindow('TForm1','窗体标题'); //查找是否已有窗体(窗体标题)
　 if Hwnd<>0 then
　 begin
　　 SetForegroundWindow(Hwnd); //激活已运行的程序实例，但程序最小化时无效
　　 MessageBox(0,'你已经运行了这个投影程序','',mb_OK);
　　 Application.Terminate; //终止本次实例
　　end
　　else
　 begin
　　 Application.Initialize;
　　 Application.CreateForm(TForm1, Form1);
　　 Application.Run;//运行本次实例
　　end;
end.