使用Delphi编写自动关闭Windows信使服务窗体程序

使用Delphi编写自动关闭Windows信使服务窗体程序

    Windows信使服务是Windows为了方便尽心系统管理而设置的一项工具，初衷是很好的可以使得管理员方便的在局域网内发布消息给各个用户。
    可是却常常被一个菜的不能再菜的家伙利用，到处扰乱别人的学习和生活。每每让人在用电脑的同时突然弹出一个确认对话框。如果只是在办公的还好，尽管是最上层窗口，只要关闭了即可。可是如果是在CS，则会突然跳出CS，要求再去点击确认，让人烦躁的没办法。
    如下程序使用Delphi编写可以自动识别信使服务的弹出窗口并自动关闭。内部使用了Timer空间来定时识别信使服务窗体。原本还打算用线程，可是后来调试出了点问题就把这个垃圾功能去掉了。

unit untmain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, untclosew, ExtCtrls, winprocs;

type
  Tfrmmain = class(TForm)
    Label1: TLabel;
    edtcount: TEdit;
    btnok: TButton;
    Timer1: TTimer;
    procedure btnokClick(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
  public
    closew:tclosew;
  end;

var
  frmmain: Tfrmmain;

implementation

{$R *.dfm}

procedure Tfrmmain.btnokClick(Sender: TObject);
begin
if btnok.caption='启动服务' then
  begin
    btnok.Caption:='停止服务';
    timer1.Enabled:=true;
  end
else
  begin
    btnok.Caption:='启动服务';
    timer1.Enabled:=false;
    closew.suspend;
  end;
closew.FreeOnTerminate:=true;
end;

procedure Tfrmmain.Timer1Timer(Sender: TObject);
var
hwndwin:hwnd;
begin
hwndwin:=winprocs.FindWindow(nil,pchar('信使服务 '));
if hwndwin<>0 then
  begin
    closew.Resume;
  end
else
  begin
    if not(closew.Suspended) then
      closew.suspend;
  end;
end;

procedure Tfrmmain.FormCreate(Sender: TObject);
begin
closew:=tclosew.Create(true);
end;

procedure Tfrmmain.FormDestroy(Sender: TObject);
begin
if closew<>nil then
  begin
    closew.FreeOnTerminate:=true;
    closew.Terminate;
  end;
end;

end.

 

unit untclosew;

interface

uses
  Classes, sysutils, windows, winprocs, messages;

type
  tclosew = class(TThread)
  private
  protected
    procedure update;
    procedure Execute; override;
  end;

implementation

uses untmain;

procedure tclosew.Execute;
var
hwndwin:hwnd;
begin
while not(terminated) do
begin
  hwndwin:=winprocs.FindWindow(nil,pchar('信使服务 '));
  if hwndwin<>0 then
    begin
      winprocs.SendMessage(hwndwin,WM_CLOSE,0,0);
      synchronize(update);
    end;
end;
end;

procedure tclosew.update;
var
i:integer;
begin
i:=strtoint(untmain.frmmain.edtcount.text);
i:=i+1;
untmain.frmmain.edtcount.text:=inttostr(i);
end;

end.

/////////////////////////////////////////////////