教你用delphi写弹窗广告插件

教你用delphi写弹窗广告插件
2009年12月25日 星期五 00:45
教你用delphi写弹窗广告插件
引子
目前越来越多的广告插件在我们电脑上扎根驻地，时不时地弹出令人讨厌的广告，并且每当我们开机的时候都会弹出来，搞的很多小菜只能重装系统，
来解决这另人讨厌的广告！影响我们上网聊天，玩游戏，工作等等……很多小菜都不知道广告插件是什么，是怎么做出来的。
下面我就为大家揭开弹窗广告的真实面目，教大家如何很容易的自己也能编出
一个好的弹窗广告插件！
第一步   我们运行delphi7（地球人都知道，呵呵！）
如图1
我们运行delphi7，它是一个可视化编辑器，运行后程序会自动给我们建立一个窗体，便于我们操作。
我们的弹窗广告就是在form1上编辑出来的！
第二步   使广告程序开机自动运行与隐藏
双击form1，填写程序自动写入注册表功能，实现开机自动运行的目的。
如图2
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=False;//隐藏form窗体,这样做是为了不易被人发现！
reg:=tregistry.create;
reg.rootkey:=HKEY_LOCAL_MACHINE;
reg.openkey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',true);
reg.WriteString('ScanRegistry','ad.exe');
reg.closekey;
reg.free;//写入注册表，目的是开机自动运行，我这里自动运行ad.exe，最后把程序保存为ad.exe
另外需要注意的是，在uses中一定要添加registry，在var中要添加reg:tregistry;
这点很重要哦，不然程序就不能运行了！很多小菜在编程的时候都不注意这点，最后使整个程序不能运行，但并不知道错误在哪。
做完这一步，我们的程序就可以写入注册表喽！
第三步   检测浏览器是否运行
弹窗广告插件一般都是在你浏览网页的时候，弹出广告。他们这样做的目的其实是为了嫁祸给你打开的网站，以为是网站弹出的广告呢！
这样做可以更好的隐藏广告插件。
下面我就教大家写一段代码，来实现这个功能！（前几步代码不动）
我现在在form1窗体上添加一个时间控件timer1,如图3
就是system里面的那个小时钟，很好找的。然后双击小时钟timer1时间控件，添加如下代码：
hWnd:=FindWindow('IEFrame',nil);//查找浏览器是否运行，如图4
同样和第三步一样，要在var中添加hWnd:THandle;
第四步   弹出讨厌的广告
继续在timer1中添加代码：
if hWnd<>0 then //如果发现浏览器运行，