python cn社区

大家一起分享，一起讨论，这才是我喜欢的编程。引用：
任何情况下，如果您直接向这个邮件列表发出“退订”之类的请求，均会视作您无法胜任这一职业的一项直接证据，请三思！

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

第一篇日志，给Delphi，给blogspot，终于能访问了。这篇文章是原来发表在实验室的版面上，结合网上的两种方法对比了一下而已。

两种方面都是运行在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.