应用只能打开一个？？？

Question

？？？？？？？

Answer 1

//写在工程文件中
Var
  hMutex:HWND;
  Ret:Integer;
begin
  Application.Initialize;
//  Application.Title := 'info';
  hMutex := CreateMutex(nil, False, 'tag_one');
  Ret := GetLastError;
  If Ret <> ERROR_ALREADY_EXISTS Then
    Begin
      Application.CreateForm(TMainForm, MainForm);
      Application.Run;
    End
  Else
   Application.MessageBox('Run Twice!','Notes!',MB_OK);
  ReleaseMutex(hMutex); 
  Application.Run;
end.