小问题，在线等候！急！！！

Question

你的问题可以转化为防止程序重复运行，这方面解答的方法太多了，用原子、互拆等方法，看看以前的帖子，或者去WWW.GOOGLE.COM搜索重复运行 DELPHI 。

Answer 1

参考： program DEL3test; uses
 Forms,Windows,SysUtils,
 DEL3unit in 'DEL3unit.pas' {Form1}; {$R *.RES} Var
    hMutex:HWND;
    Ret:Integer;
 begin
  Application.Initialize;
  Application.Title := 'aaaaaa';
  hMutex:=CreateMutex(nil,False,'aaaaaa');
  Ret:=GetLastError;
  If Ret<>ERROR_ALREADY_EXISTS Then 
   Begin
    Application.CreateForm(TForm1, Form1);
    Application.Run;
   End
  Else
   Application.MessageBox('Run Twice!','Notes!',MB_OK);
  ReleaseMutex(hMutex);
 end.