只运行一个实例的代码我有了,

begin
  Application.Initialize;
  //只运行一个程序
  hAppMutex := CreateMutex(nil, false, PChar('MantPlan')); //创建互斥对象
  if hAppMutex = 0 then
  begin
    //showmessage('dfdfd');
    MessageBox(0, PChar('创建互斥对象失败!'), PChar('Error'), MB_OK + MB_ICONINFORMATION);
    exit;
  end;
//查看是否是第一次运行程序
  if ((hAppMutex <> 0) and (GetLastError() = ERROR_ALREADY_EXISTS)) then
  begin
    MessageBox(0, PChar('程序已经运行!'), PChar('OK'), MB_OK + MB_ICONINFORMATION);
    //关闭互斥对象，退出程序
    //form2.Show;
    closeHandle(hAppMutex);

    exit;
  end;

  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.Run;

  CloseHandle(hAppMutex); //关闭互斥对象

end.

如何在二次执行这个程序时,激活这个程序已运行的那个实例的某个窗口(如form2)呢?
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
回复次数：4
 
4
#1 得分：0回复于： 2009-03-20 17:51:40


Delphi/Pascal code
 
?
1
2
3
4
5
Var 
  A: Hwnd;
 
A := FindWidows(nil,'窗口名');
if A <> 0 then ShowWindow(A,SW_SHowNormal);


 意思是這樣的，沒有開發環境，可能有筆誤，見諒
2014年10月微软MVP申请开始啦
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#2 得分：0回复于： 2009-03-20 21:55:27
楼上的方法可行。也可以用 SetForegroundWindow 函数。
如果您对CSDN论坛有意见和建议 请直接在本帖指教
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理
#3 得分：20回复于： 2009-03-20 22:13:38
Delphi/Pascal code
 
?
1
2
 1. hAppMutex := CreateMutex(nil, false, '');//最好用GUID ,因为Mutex为跨进程的，万一在同一服务器上运行另一个程序，是用Mutex来实现多线程互斥的，你的程序就运行不了了！
 2. 激活某窗体参见F1
CSDN投诉事项说明
对我有用[0] 丢个板砖[0] 引用 | 举报 | 管理

#4 得分：0回复于： 2009-08-15 18:45:00
但是第一次运行的程序所有窗口都关闭了,只在系统托盘上驻图标.现在要它把窗口显示出来.