📄 remotecpcunit.pas

📁 DELPHI 下远程控制源码
💻 PAS
📖 第 1 页 / 共 2 页
字号:
上一页 12
   if SpeedButton3.Down=False then exit;  //如果键盘标志置上则
   if Form1.IdFTCPClient.Connected=False then exit; //如果网络开通则
   try
     Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
     StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘抬起');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(Key)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);      
   except
      Panel2.Caption:='注意：键盘命令失败！';
   end;  
end;

procedure TRemoteCPCFm.SpeedButton5Click(Sender: TObject);
begin
   if SpeedButton3.Down=False then exit;  //如果键盘标志置上则
   if Form1.IdFTCPClient.Connected=False then exit; //如果网络开通则
   if SpeedButton5.Down then
   begin
      try
       Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
       StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘按下');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(16)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);          
      except
        Panel2.Caption:='注意：键盘命令失败！';
      end; 
   end else
   begin
      try
       Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
       StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘抬起');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(16)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);   
      except
        Panel2.Caption:='注意：键盘命令失败！';
      end; 
   end;
end;

procedure TRemoteCPCFm.SpeedButton8Click(Sender: TObject);
begin
   if SpeedButton3.Down=False then exit;  //如果键盘标志置上则
   if Form1.IdFTCPClient.Connected=False then exit; //如果网络开通则
   if SpeedButton8.Down then
   begin
      try
       Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
       StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘按下');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(17)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);           
      except
        Panel2.Caption:='注意：键盘命令失败！';
      end; 
   end else
   begin
      try
       Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
       StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘抬起');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(17)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);            
      except
        Panel2.Caption:='注意：键盘命令失败！';
      end; 
   end;
end;

procedure TRemoteCPCFm.SpeedButton12Click(Sender: TObject);
begin
   if SpeedButton3.Down=False then exit;  //如果键盘标志置上则
   if Form1.IdFTCPClient.Connected=False then exit; //如果网络开通则
   if SpeedButton12.Down then
   begin
      try
       Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
       StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘按下');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(18)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);           
      except
       Panel2.Caption:='注意：键盘命令失败！';
      end; 
   end else
   begin
      try
       Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
       StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘抬起');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(18)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);         
      except
        Panel2.Caption:='注意：键盘命令失败！';
      end; 
   end;
end;

procedure TRemoteCPCFm.SpeedButton11Click(Sender: TObject);
begin
   if SpeedButton3.Down=False then exit;  //如果键盘标志置上则
   if Form1.IdFTCPClient.Connected=False then exit; //如果网络开通则
   try
       Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
       StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘按下');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(9)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);            
   except
       Panel2.Caption:='注意：键盘命令失败！';
   end;
   application.ProcessMessages; 
   try
       Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
       StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘抬起');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(9)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);           
   except
       Panel2.Caption:='注意：键盘命令失败！';   
   end;
end;

procedure TRemoteCPCFm.SpeedButton13Click(Sender: TObject);
begin
   if SpeedButton3.Down=False then exit;  //如果键盘标志置上则
   if Form1.IdFTCPClient.Connected=False then exit; //如果网络开通则
   try
       Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
       StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘按下');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(27)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);            
   except
       Panel2.Caption:='注意：键盘命令失败！';
   end;
   application.ProcessMessages; 
   try
       Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
       StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘抬起');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(27)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);           
   except
       Panel2.Caption:='注意：键盘命令失败！';   
   end;
end;

procedure TRemoteCPCFm.SpeedButton10Click(Sender: TObject);
begin
   if SpeedButton3.Down=False then exit;  //如果键盘标志置上则
   if Form1.IdFTCPClient.Connected=False then exit; //如果网络开通则
   try
       Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
       StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘按下');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(93)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);           
   except
        Panel2.Caption:='注意：键盘命令失败！';
   end;
   application.ProcessMessages; 
   try
       Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
       StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘抬起');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(93)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);         
   except
        Panel2.Caption:='注意：键盘命令失败！';   
   end;
end;

procedure TRemoteCPCFm.SpeedButton9Click(Sender: TObject);
begin
   if SpeedButton3.Down=False then exit;  //如果键盘标志置上则
   if Form1.IdFTCPClient.Connected=False then exit; //如果网络开通则
   try
       Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
       StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘按下');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(91)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);      
   except
       Panel2.Caption:='注意：键盘命令失败！';
       exit;
   end;
   application.ProcessMessages; 
   try
       Form1.IdFTCPClient.Write('键盘命令'+EOL);//发送键盘命令---1
       StringsLen:=0;
       SendStrings.Clear;
       SendStrings.Append('键盘抬起');   //发送键盘命令---2 
       SendStrings.Append(IntToStr(91)); //发送键盘虚拟码参数---3 
                   
       StringsLen:=Length(SendStrings.Text);
       Form1.IdFTCPClient.WriteInteger(StringsLen);
       Form1.IdFTCPClient.WriteStrings(SendStrings);          
   except
        Panel2.Caption:='注意：键盘命令失败！'; 
        exit;  
   end;
end;

procedure TRemoteCPCFm.SpeedButton4Click(Sender: TObject);
begin
   if not SpeedButton4.Down then exit;
   if Form1.IdFTCPClient.Connected=False then
   begin
      beep;
      Panel2.Caption:='注意：网络还没有连接！';
      SpeedButton4.Down:=False; 
      exit; //如果网络开通则
   end;
   Try 
     Form1.IdFTCPClient.Write('屏幕信息'+EOL);//发送鼠标命令---1
     RemoteScreenWidth :=Form1.IdFTCPClient.ReadInteger; //获取屏幕宽度
     RemoteScreenHeight:=Form1.IdFTCPClient.ReadInteger; //获取屏幕高度
     Panel2.Caption:='恭喜：可以进行鼠标控制了！';      
   except
     Beep;
     Panel2.Caption:='注意：远程屏幕参数获取失败！';
     SpeedButton4.Down:=False; 
     exit;
   end;
end;

procedure TRemoteCPCFm.Timer1Timer(Sender: TObject);
var
   RemoteScrRect:TRect; //远程屏幕客户区矩形大小
begin
   RemoteScrRect.Top:=0;
   RemoteScrRect.Left:=0;
   RemoteScrRect.Bottom:=RemoteCPCFm.RemoteScreenHeight;
   RemoteScrRect.Right:=RemoteCPCFm.RemoteScreenWidth;
   
   RemoteCPCFm.Canvas.Lock;
   RemoteCPCFm.Canvas.CopyMode:=cmSrcCopy;
   RemoteCPCFm.Canvas.CopyRect(RemoteCPCFm.ClientRect,
                          RemoteCPCFm.TheCacheBmp.Canvas,RemoteScrRect);
   RemoteCPCFm.Canvas.Unlock;
end;

end.
上一页 12
⌨️ 快捷键说明

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