学步园

 var   hMutex:   Hwnd;  
          Ret:   integer;  
  begin  
      Application.Initialize;  
      Application.Title:='Program   Run   Once   Test':  
      hMutex:=CreateMutex(nil,false,'Program   Run   Once   Test');  
      Ret:=GetLastError;  
      if   Ret<>Error_Already_Exists   then    
            begin  
                Application.Create(TForm1,Form1);  
                Application.Run;  
            end  
      else  
          Application.MessageBox('This   Program   is   running','Warning',MB_OK);  
      ReleaseMutex(hMutex）；  
  end;