远程控制源码delphi（远程控制源码）

本文目录一览：

• 1、delphi如何实现远程桌面控制功能的例子
• 2、DELPHI实现远程控制
• 3、在网上下载了一份源代码，但是看不懂．很是头大．哪位有delphi远程控制代码详细注解．
• 4、delphi远程控制程序怎么使用
• 5、delphi delphi中如何实现对计算机的远程控制？比如在教师机上控制学生机
• 6、远程控制Delphi源代码

delphi如何实现远程桌面控制功能的例子

百度很多这样的例子

搜索"Delphi 远程屏幕"和"Delphi 传送文件"

都能找到相关源码

DELPHI实现远程控制

1.基础思路

编写两个程序Client/Server，将其当作聊天软件，Server收到命令后执行，并将执行结果发送回去。

（聊天软件做法和远程控制命令这里省略）

2.自我保护

有如下几种方法：

设置application. showmainform:=false，取消显示服务端主窗口；

设置application. title:=''，由于程序没有名称，win2000下（win9x除外）任务管理器里是看不到的，也可以将其设置为系统进程名称；

实现部分添加声明function registerserviceprocess(dwprocessid,dwtype:integer):integer;stdcall;external 'kernel32.dll';(win nt/2000除外)，然后在tform1.formcreate中调用registerserviceprocess(getcurrentprocessid,1);可以隐藏进程。

在网上下载了一份源代码，但是看不懂．很是头大．哪位有delphi远程控制代码详细注解．

你都已经下载了相关源码了，问题是你看不懂，那么你还索要代码干什么啊，一样会看不懂啊。建议你赶紧认真的，静下心来，把撸管的时间用来看代码，保证OK。这里顺便发一个简单远程控制源码，希望对你有用：

远程控制示例源码

delphi远程控制程序怎么使用

WinSock是一组API，用于在网络上传输数据和交换信息。虽然现在有很多工具如FTP 程序可以在网络上传输数据和文件，但是通过WinSock编程有更大的灵活性，它不需要关心网络连接的细节，不过用WinSock编程却很复杂。在Delphi中我们并不需要直接与 WinSock的API打交道，因为TClientSocket元件和TServerSocket元件（在Internet页）封装了WinSock的大部分API，使得对WinSock的访问大大简化。下面这个远程控制的例子就很清楚地说明了这个问题，它可以发送一个消息给对方，并能够使对方的电脑关闭、重新启动或重新登录。

一实现原理

实行远程控制，实际上就是一个服务器程序（以下简称被控程序）和一个客户程序（以下简称主控程序）：被控方即为服务器程序，它监听客户的请求，并作出处理；主控方即为客户程序，它连接上服务器后，发出自己的请求，服务器便根据自已的请求进行不同的响应。

二编写主控程序

1.新建一个项目Client.dpr，并把一个TClientSocket元件放到Form上，它的属性设置如下：Port设为100(端口号可任意设置，只要求双方统一)，其他属性按默认值。在窗体上添加两个TEdit：Edit1，用来输入发送的字符，Edit2用来输入IP地址；添加两个TButton：Button1，点击后用来连接被控机，Button2点击后用来发送字符，然后声明一个私有变量ConnectFlag，表示双方是否连接好：

private ConnectFlag:Boolean;

2.ClientSocket1的OnConnect事件代码如下：

procedure TForm1.ClientSocket1Connect (Sender: TObject;Socket: TCustomWinSocket); begin ConnectFlag:=True; //表示连接成功 end;

3.ClientSocket1的OnError事件代码如下：

procedure TForm1.ClientSocket1Error(Sender: TObject; Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;var ErrorCode: Integer); begin Application.MessageBox(Pchar (‘不能连接到IP地址 : ' ＋ Edit2.Text＋‘。'＋ ＃13＋‘可能是监听程序没有运行或网络故障！'), ‘连接错误',MB_OK＋MB_ICONSTOP); ErrorCode := 0; end;

4.Button1的OnClick事件代码如下：

procedure TForm1.Button1Click(Sender: TObject); begin with ClientSocket1 do begin if Active then begin Active := False;//在连接之前首先关闭 ConnectFlag:=False; //置连接标志为假 end; if Length(Edit2.Text) 0 then begin Host := Edit2.Text; //指定IP地址或主机名 Active := True; end; end; end;

5.Button2的OnClick事件代码如下：

procedure TForm1.Button2Click(Sender: TObject); begin if ConnectFlag then ClientSocket1.Socket.SendText(Edit1.Text) //如果连接成功则发送字符串 else Application.MessageBox(PChar(‘没有连接到地址 : ' ＋ Edit2.Text＋‘。'＋＃13＋‘检查IP地址是否 存在或是否已经连接！'),‘提示信息',MB_OK＋MB _ICONSTOP); end;

三编写被控程序

1.新建一个项目Server.dpr，并把一个TServerSocket元件放到Form上，它的属性设置如下：Active设为True；Port设为100，其他属性按默认值。

2.ServerSocket1的OnClientRead事件代码如下：

procedure TForm1.ServerSocket1ClientRead (Sender: TObject;Socket: TCustomWinSocket); var Str:PChar; Code,V:Integer; begin Str:=PChar(Socket.ReceiveText); //接收字符串 Val(Str,V,Code); //处理接收的字符串，首先转换字符串为整数 if Code0 then Application.MessageBox(Str, ‘提示信息',MB_OK＋MB_ICONINFORMATION) //如果转换后的数据不是一个整型数 //就通过消息框来显示字符串 else if (V=0)or(V=1)or(V=2) then ExitWindowsEx(V,0) //调用Windows的API函数(V=0表示重新登录、 //V=1表示关机、V=2表示重启动) else Application.MessageBox (Str，‘提示信息',MB_OK＋MB_ICONINFORMATION); //转换后数据不为0、1、2时在消息框内显示字符串 end;

3.修改项目文件，不让窗口显示并且防止它运行两次，修改begin和end之间的代码如下：

begin Application.Initialize; if FindWindow(‘TForm1',‘Form1')= 0 then begin //当没有找到Form1时执行下面代码 Application.ShowMainForm:=False; //不显示主窗口 Application.CreateForm(TForm1, Form1); Application.Run; end; end.

四注意事项

1.网络要装配正确并安装TCP/IP协议，且要正常运行。

2.首先要运行被控程序。

3.必须知道对方的IP地址或主机名。

上述程序用Delphi5.0编写，在Windows98对等网、 WindowsNT4.0局域网以及Internet上运行通过。最后要声明的是此程序由于能够控制对方的计算机，在实验时要事先经过他人同意，不要给别人造成影响。　

delphi delphi中如何实现对计算机的远程控制？比如在教师机上控制学生机

基本原理应该是这样的：最基本的就是用

Socket

实现数据通讯。

学生的机器上面要有通讯的客户端侦听程序，老师的机器上面装有服务器程序，学生的机器在启动的时候要连接到老师所用的那台服务器那边，之后老师的服务器程序可以向学生的机器发送一些自定义消息过去，学生的机器上收到这些消息后，转向相应的处理。具体的实现可以用

FastNet

面板上面的控件实现数据通讯。Delphi

也有关于数据通讯的Demo

远程控制Delphi源代码

灰鸽子VIP1.2的源代码

灰鸽子是一个远程控制类软件，主要功能有：

1.文件管理：模枋 Windows 资源管理器，可以对文件进行：复制、粘贴、删除，重命名、远程运行等,可以上传下载文件或文件夹,操作简单易用。

2.远程控制命令：查看远程系统信息、剪切板查看、进程管理、窗口管理、外设控制、服务管理、共享管理、代理服务、MS-Dos模拟、其它控制！

3.捕获屏幕：不但可以连继的捕获远程电脑屏幕，还能把本地的鼠标及键盘传动作送到远程实现实时控制功能！

4.注册表模拟器：远程注册表操作就像操作本地注册表一样方便!

5.远程通讯：除普通的文字聊天以外，还有语音聊天的功能（双方ADSL上网情况下语音良好）！

6.代理服务：可以让服务端开放Socks5代理服务器功能，还可以让服务端开放FTP功能！

7.命令广播：可以对自动上线主机进行命令播，如关机、重启、打开网页等，点一个按钮就可以让N台机器同时关机或其它操作！