1

源程序下载
1：将你的程序放在Windows启动中
HKEY_LOCALMACHINE\Sodtware\Microsoft\Windows\CurrentVersion\Run,你会发现所有的Windows启动时调用的程序都在这里,于是你将你的程序增加在这里就可以了.名称为你的程序的标题,其值为你的程序的执行路径和文件名称
procedure TForm1.Button1Click(Sender: TObject);
Var
RegFile : TRegistry;
AppFile : String ;
begin
AppFile := Application.ExeName ;
RegFile:=TRegistry.Create;
RegFile.RootKey:=HKEY_LOCAL_MACHINE;
try
RegFile.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',True);
RegFile.WriteString('Test Add App to Start','"'+AppFile+'"');
except
End;
RegFile.CloseKey ;
RegFile.Free;
end;
2：打开拨号连接
再打开控制面板里面有这个这么一段话，就是打开拨号连接。其中'我的连接'为你创建的拨号程序名称。winexec('rundll32.exe rnaui.dll,RnaDial '+'我的连接',9);
3：如何为Delphi程序添加事件和事件处理器
Delphi是一种功能很强的可视化程序开发工具。我们在使用Delphi开发WINDOWS 应用程序的过程中，虽然Delphi为每个可视化组件都提供了很多属性（Property）和事件（Event），但在实际应用中可能会碰到一些自己需要的特殊事件，这些特殊事件Delphi 又没有提供，这时我们就需要为应用程序添加这些特殊事件。当这些事件发生后，又能马上调用处理这些事件的过程。本文通过实例来说明如何为应用程序添加事件和处理事件的过程。
在Delphi中，事件实际上是专门化的属性，它是一个过程（procedure）的指针。要添加事件，首先应在所定义的类中说明一个用来指向事件过程的指针，该指针的作用是当事件一旦发生，就通过这个指针执行所指向的处理这个事件的过程。最后通过指定符 published公布定义的事件属性源程序代码:
本例中，再Private声明中定义了以下变量和过程，
val1,val2,res:integer; {val1和val2存放输入的两个整数，res存放两数的积}
FTooBig : TNotifyEvent; {定义一个指向事件处理器的指针FTooBig}
procedure TooBig(Sender: TObject);
同时在Published中定义了 OnTooBig事件
property OnTooBig:TNotifyevent read FTooBig write FTooBig;{定义事件}
本程序的执行过程是这样的，如果在两个乘数大于200或者为0或者为空的时候，触发OnTooBig事件。
代码如下：
procedure TForm1.FormCreate(Sender: TObject);
begin
val1:=1;
val2:=1;
FTooBig := TooBig;{使事件处理指针指向事件处理器}
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
Try
val1 := StrToInt(Edit1.Text);
Except
Val1 := 0 ;
End ;
Try
val2 := StrToInt(Edit2.Text);
Except
Val2 := 0 ;
End ;
if((val1< 200)and(val2< 200)) and (val1<>0) and (val2<>0) then
begin
res := val1*val2;
Edit3.Text := IntToStr(res);
end else
if assigned(FTooBig) then OnTooBig(Self);
end;
源程序下载