教你用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 //如果发现浏览器运行，
相关文档：
数组是可以通过索引来引用的同类型数据的列表。按照存储空间的获取方式，Delphi
支持的数组类型有两种，即静态数组和动态数组。所谓静态数组就是在声明时就已经确定大小的数组类型，而动态数组是指其大小在声明时不能确定的数组，动态数组的大小在使用时确定。
声明静态数组的方式非常简单，只要指明数组长度和数据类型 ......
之前做一个程序，用ListBox读入一个文本文件，但文本中有空行，为了删除其中的空行，折腾了好长时间。
先给出一段代码给大家看
var
i:Integer;
begin
ListBox1.Items.LoadfromFile('data.txt');
for i:=0 to ListBox1.Count - 1 do
begin
......
经典案例分享 暂不涉及分区表,表设计等 只从比较浅的角度来优化
1.先检查程序 检查模型层的设计与编码是否合理 将和这个表有有绑定的数据感知控件全部去掉。
2.估算一个数据的最大量 可以从设计角度 也可以从客户提供的数据分析 未来一定周期内的预增长量
3.将条码的长度保存起来，先用条码的长度进行过滤，如果80%以上� ......
最近在调试代码,发现一个问题.应该算是bug吧. 呵,如果不算bug,那就是我对其实现原理的误解.
如果把返回参数Result作为另一函数的输入参数,result的初值是不确定...
function fun(str:string):string;
begin
fun2(result);
end; ......
