Delphi中的单实例运行

关注

原创最新推荐文章于 2025-11-16 22:57:12 发布 2.1k 阅读 AI 写同款· GEO 优化 ›

Vmware虚拟机克隆详解：固定ip + 修改uuid等内容分两大步设置固定ip 克隆后修改相关配置本文引用的其他地方的图片。会附上链接若侵权，删一、设置静态ip 先进行虚拟网络的编辑接下来的操作需要管理员权限。（给权限就完事了）接下来设置网卡: 网络和共享中心→ 更改适配器设置→VMware Network Adapter VMnet8 -> 右键属性修改TCP/Ipv4的配置，网上常见是这种，笔者是英文的... 阅读详情

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;

  