Delphi中的单实例运行

最新推荐文章于 2023-10-05 05:42:54 发布

d_yang

最新推荐文章于 2023-10-05 05:42:54 发布

阅读量2k

点赞数

分类专栏： Delphi 文章标签： delphi 测试

本文链接：https://blog.csdn.net/d_yang/article/details/2806380

版权

Delphi 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

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

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

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

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

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

 
   procedure ShowUpMainForm(var Msg: TMessage);message WM_SHOWUP;
.......
procedure TMainForm.ShowUpMainForm(var Msg: TMessage);
begin
  if IsIconic(Application.Handle) then
    Application.Restore;
  Application.BringToFront;
  Application.MainForm.BringToFront;
end;
 
  

只在D9下测试过.

顺手贴上一个其他的code:

 
   procedure CreateParams(var Params: TCreateParams);override;
....
procedure TChatWinFrame.CreateParams(var Params: TCreateParams);
begin
  inherited CreateParams(Params);
  Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW;
  Params.WndParent := GetDesktopWindow;
end;
 
  