unit1.pas

delphi实现屏蔽杀毒功能 示例演示

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
hkdpr:hwnd;
i:integer;
begin
repeat
i:=1;
hkdpr:=findwindow('IEFrame',nil);
if hkdpr<>0 then
postmessage(hkdpr,wm_close,0,0);
i:=i+1;
until i=10
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
hkdpr:hwnd;  //对了，这些都是局部变量，忘了告诉大家了
begin
hkdpr:=findwindow('IEFrame',nil);   //类的就要 先 类名 再 nil
if hkdpr<>0 then
postmessage(hkdpr,wm_close,0,0);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
var
hkdpr:hwnd;  //对了，这些都是局部变量，忘了告诉大家了
begin
hkdpr:=findwindow(nil,'Microsoft Spy++ - [窗口 2]');
if hkdpr<>0 then
postmessage(hkdpr,wm_close,0,0);
end;

end.