让程序只运行一个实例（delphi）（转）

在工程文件dpr里加入代码：
[code]Application.Initialize;
Application.Title := 'XXX;
CreateMutex(nil,false,'XXX);
if GetLastError <> ERROR_ALREADY_EXISTS then
begin
Application.CreateForm(TfmMain, fmMain);
Application.Run;
end;[/code]
另在前面uses部分加入Windows。
详见：[url]http://mgd0629.spaces.live.com/blog/cns!1782c1ce9fd7b0d8!1320.entry[/url]