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

在工程文件dpr里加入代码：

Application.Initialize;
Application.Title := 'XXX;
CreateMutex(nil,false,'XXX);   
if GetLastError <> ERROR_ALREADY_EXISTS then
begin
  Application.CreateForm(TfmMain, fmMain);
  Application.Run;
end;

另在前面uses部分加入Windows。
详见： http://mgd0629.spaces.live.com/blog/cns!1782c1ce9fd7b0d8!1320.entry