Delphi中的单实例运行

 2005年3月28日, 发布于: http://zyyang.spaces.live.com/blog/cns!193DAE30814DFA36!217.entry

实现一个App,当第二个实例启动时, 第一个实例的主窗口弹出到最前. 然后第二个退出.
在网上看到过很多种实现.
各有优缺点.

我的做法是, 判断Mutex->查找第一个实例主窗体的Handle->发给原窗体一个消息->退出.
在原来的窗体里面要加上一个消息处理函数.

Code:
在判断已存在实例后, 找到主窗体:
 SendMessage(_previousInstanceWindow, WM_SHOWUP, 0, 0);

在主窗体添加消息处理函数:

1. procedure ShowUpMainForm(var Msg: TMessage);message WM_SHOWUP;
2. .......
3. procedure TMainForm.ShowUpMainForm(var Msg: TMessage);
4. begin
5.   if IsIconic(Application.Handle) then
6.     Application.Restore;
7.   Application.BringToFront;
8.   Application.MainForm.BringToFront;
9. end;

只在D9下测试过.

顺手贴上一个其他的code:

1. procedure CreateParams(var Params: TCreateParams);override;
2. ....
4. procedure TChatWinFrame.CreateParams(var Params: TCreateParams);
5. begin
6.   inherited CreateParams(Params);
7.   Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
8.   Params.WndParent := GetDesktopWindow;
9. end;

结论: 能不麻烦自己就不麻烦.
告诉别人, 让他们做.呵呵.
还有: 不要过分管别人的事情, 否则, 他们自己会乱掉...