delphi ADSL随系统启动

1. 网上很多关于ADSL自动随系统启动并连接网络的方法都是搞个什么快捷方式放在启动中, 但偏偏我的电脑此方法无效.

2. 试用了一下宽带王这款软件, 感觉不爽, 第一占用了我的资源(内存20M), 第二托盘图标不能隐藏, 第三那些什么重连功能咱用不上.

3.还是动手自己写一个吧.

①. 开启自启动

  Reg := TRegistry.Create;
  with Reg do
  Try
    RootKey := HKEY_LOCAL_MACHINE;
      if OpenKey('SOFTWARE\MicroSoft\Windows\CurrentVersion\Run',false) then
        Reg.WriteString('AUTO_ADSL',ParamStr(0));
  Finally
    Reg.Free;
  end;

②. 调用ADSL

ShellExecute(0,'open',PChar('C:\Windows\system32\Rasphone.exe'),PChar('-d ADSL'),nil,SW_NORMAL);

//此处ADSL 为建立的连接名.

有些设置,注意一下: