Delphi 组件开发教程指南（3）组件注册
在上一篇中，我们简单的实现了一个对Delphi自身的TEdit编辑框控件的一个扩充！但是我们并不能像Delphi自己的TEdit一样，能够
在设计状态下进行设计，而是非得要自己手动创建控件，然后才能使用。这个虽然说也是组件，但是却失去了组件的可设计的方便性，仅仅可作为一个类库来使用。
现在我就来介绍一下，如何让这个组件注册到IDE上，然后让你能够在设计状态下可以设计使用。
在讲注册组件的时候，我们需要先明白Delphi中的包的概念，这里我就不做说明了，不清楚的，可以到Cnpack网站去了解这方面的知识
。在注册组件时，就需要一个设计期间的包文件，然后将我们上次新建的Edit的那个单元文件添加到包中。首先，我们新建一个包文件，然后添加单元文件，具体参考如下：
从图上的操作可以看到，我先新建了一个名字叫做TestPackage的包，然后将Edit1.pas的单元文件添加到这个包里面了，之后编译，安
装了之后，就将控件显示在Standard那个组件栏中了，里面有一个TEdit1的组件，那个就是我们从TEdit继承过来的新组件！然后再看属性编辑
器中就多了Alignment这个属性，设置它，就能设置文字的对齐方式了。
好了，到此为止，这个简单组件就注册完成了，可能有人不了解，就建立一个包，编译安装，就能将组件注册到IDE的组件栏中去吗？实际上当然不是做个安装包
编译一下就完了的。还记得，在上一篇中，我最开始用组件编写向导做了什么吗？我选择了将组件安装到Standard那个栏上。有心的人打开
Eidt1.pas可能就会发现在Edit1.pas中有一个注册的过程为
procedure
Register;
implementation
procedure
Register;
begin
RegisterComponents(
'
Standard
'
, [TEdit1]);
end
;
这个Register就是组件注册的过程，包会自动调用的，注册过程中调用了RegisterComponents这个过程
这个过程的第一个参数指定要注册到IDE的哪个组件面板（如果IDE组件面板中没有你给定的这个值，Delphi会自动添加一个新的组件面板），参数二指定的是要注册到IDE的组件对象类数组。
另外，这里要提出需要注意的一点就是，虽然Delphi本身是不区分
大小写的，但是记得这个组件注册的过程的Register必须是这个样子，而不能变成小写register这样，否则，组件就注册不上去了哈，同时，注
意，我在前面给TEdit1的新属性Alignment的声明是放在Published这个域中的，这是因为要想在IDE设计期环境能够看到这个属性，就
必须放在Published
相关文档：
Delphi 关键字详解[整理于 "橙子" 的帖子]
absolute
//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.
var
Str: string[32];
StrLen: Byte absolute Str;
//这个声明指定了变量StrLen起始地址与Str相同.
//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.
begin ......
附件资料
*指针的使用（代码）
示例：简单的指针应用
代码：
procedure TForm1.Button2Click(Sender: TObject);
var
a: Integer;
p: ^Integer;
begin
with self.Memo1.Lines do
begin
......
教你用delphi写弹窗广告插件
2009年12月25日 星期五 00:45
教你用delphi写弹窗广告插件
引子
目前越来越多的广告插件在我们电脑上扎根驻地，时不时地弹出令人讨厌的广告，并且每当我们开机的时候都会弹出来，搞的很多小菜只能重装系统，
来解决这另人讨厌的广告！影响我们上网聊天，玩游戏，工作等等……� ......
MSHTML是微软公司的一个COM组件，该组件封装了HTML语言中的所有元素及其属性，通过其提供的标准接口，可以访问指定网页的所有元素．
MSHTML对象模型是由一些对象和集合组成的．处于根部的是HTML，描述了打开页面的1个窗口，包括一系列集合和对象。如Frames集合，History，Location，Navigator，Document，Vi—sum ......
我的办法，增加一个timer 设置间隔100ms，通过timer的使能否，控制报警声音开关
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Windows.Beep(1200+i_f,10+i_f);
if i_f<2000 then
begin
inc(i_f);
end
end;
== ......
