Delphi中的单实例运行

89 阅读 0 评论 59 点赞

我是靠谱客的博主虚心微笑，最近开发中收集的这篇文章主要介绍Delphi中的单实例运行，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

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;