求助：一个程序已经在运行了，再双击这个可执行程序，不会运行两个这样的程序，只是跳出先前运行程序的窗口。请问如何实现！

Question

求助：一个程序已经在运行了，再双击这个可执行程序，不会运行两个这样的程序，只是跳出先前程序的窗口。请问如何实现！请各位高手指教。

Answer 1

查找CSDN上的“如何让程序只运行一个实例”；好多的。

Answer 2

是啊，这里提供一个：
在.dpr单元加入代码
program Example;
……const
  AppName = 'Example';
begin
  CreateMutex(nil, True, AppName);
  if GetLastError <> Error_ALREADY_EXISTS then
  begin
    Application.Initialize;
    ……
    Application.Run;
  end;
end;

Answer 3

先
han:HANDLE;
han := FindWindow(NULL,'窗口名');
if(han = INVALID_HANDLE_VALUE)//没找到
运行程序
else
  ShowWindow(han,SW_SHOW);

Answer 4

实现方法不下10种，随便找本DELPHI的教程都讲这个

Answer 5

随便找本Delphi书都有这个的，