如何让程序只能启动一个实例

我不知道该怎么说：
就是我的程序启动后，如果再双击启动程序就激活已启动的实例
或提示程序已启动。谢谢！

解决方案 »

  1.   

    用CreateMutex即可。放在dpr的代码中，创建成功，则是第一次运行，失败，就是已经有一个运行的实例。失败的时候，可以提示，或者用FindWindow找到上一个实例的主窗体，SendMessage将其激活。
      

  2.   

    hMutex: HWND;hMutex := CreateMutex(nil, False, '随便写，最好时软件的名称');
    Ret := GetLastError;
    If Ret ＝ ERROR_ALREADY_EXISTS Then
      ShowMessage('程序已经启动')
      

  3.   

    http://www.google.cn/search?complete=1&hl=zh-CN&newwindow=1&q=delphi%E9%98%B2%E6%AD%A2%E5%87%BA%E7%8E%B0%E5%A4%9A%E4%B8%AA%E5%BA%94%E7%94%A8%E7%A8%8B%E5%BA%8F%E5%AE%9E%E4%BE%8B&meta=