DELPHI 防止程序重复执行的单元


本文整理自网络,侵删。

 //工程引用此单元就能防止同时出现多个实例
unit MultInst;

interface

uses
Windows ,Messages, SysUtils, Classes, Forms;

implementation

const
STR_UNIQUE = '{2BE6D96E-827F-4BF9-B33E-8740412CDE96}';
MI_ACTIVEAPP = 1; {激活应用程序}
MI_GETHANDLE = 2; {取得句柄}

var
iMessageID : Integer;
OldWProc : TFNWndProc;
MutHandle : THandle;
BSMRecipients : DWORD;

function NewWndProc(Handle: HWND; Msg: Integer; wParam, lParam: Longint):
Longint; stdcall;
begin
Result := 0;
if Msg = iMessageID then
begin
case wParam of
MI_ACTIVEAPP: {激活应用程序}
if lParam<>0 then
begin
{收到消息的激活前一个实例}
{为什么要在另一个程序中激活?}
{因为在同一个进程中SetForegroundWindow并不能把窗体提到最前}
if IsIconic(lParam) then
OpenIcon(lParam)
else
SetForegroundWindow(lParam);
Application.Terminate; {终止本实例}
end;
MI_GETHANDLE: {取得程序句柄}
begin
PostMessage(HWND(lParam), iMessageID, MI_ACTIVEAPP,
Application.Handle);
end;
end;
end
else
Result := CallWindowProc(OldWProc, Handle, Msg, wParam, lParam);
end;

procedure InitInstance;
begin
{取代应用程序的消息处理}
OldWProc := TFNWndProc(SetWindowLong(Application.Handle, GWL_WNDPROC,
Longint(@NewWndProc)));

{打开互斥对象}
MutHandle := OpenMutex(MUTEX_ALL_ACCESS, False, STR_UNIQUE);
if MutHandle = 0 then
begin
{建立互斥对象}
MutHandle := CreateMutex(nil, False, STR_UNIQUE);
end
else begin
Application.ShowMainForm := False;
{已经有程序实例,广播消息取得实例句柄}
BSMRecipients := BSM_APPLICATIONS;
BroadCastSystemMessage(BSF_IGNORECURRENTTASK or BSF_POSTMESSAGE,
@BSMRecipients, iMessageID, MI_GETHANDLE,Application.Handle);
end;
end;

initialization
{注册消息}
iMessageID := RegisterWindowMessage(STR_UNIQUE);
InitInstance;

finalization
{还原消息处理过程}
if OldWProc <> Nil then
SetWindowLong(Application.Handle, GWL_WNDPROC, LongInt(OldWProc));

{关闭互斥对象}
if MutHandle <> 0 then CloseHandle(MutHandle);

end.

相关阅读 >>

Delphi写qq消息群发(模拟按键精灵)

idhttp获取文件大小的代码

Delphi adoconnection1 事务

Delphi winapi: getdesktopwindow - 返回桌面窗口的句柄

Delphi 建立快捷方式

Delphi 内存池

Delphi取cpu利用率

Delphi datasnap使用ipv6

Delphi 几种程序自杀的方法

Delphi xe 10.2.1 fmx平台 在图片上写字方法

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...