2024年3月19日发(作者：)

rdp delphi

实现远程桌面

rdp delphi

实现远程桌面

博客分类：

other

1.

首先确保你的机器上存在

，如果没有这个

文 件，可以从

/download/whistler/tools/1.0/

wxp/en-us/

下载并安装远程桌面连接软件．或

者使用

WindowXP

中自带的

，运行

regsvr32

进行注册，

ccrun

测试使用的

版本

号 是

5.1.2600.0

，在

Windows2000 Server

中可以编译。

2.

运行

delphi 7-->Components-->Import Active

Control

，在列表中找到下面的

Microsoft Terminal Services

Active Client 1.0 Type Library (Version 1.0),

点击

install

，你

可以选择将其安装到现在的包中， 也可以新建一个，

选择

Into new package-->

点击

Browser

将其保存为

D:Program

。在

Description

一栏可 以填：

Microsoft Terminal Service Control

，这个名

称将出现 在安装完成后的

Package

列表中。点击

OK

以后，稍等片刻， 系统会提示

将被编译并且

安装，是否继续，点击

yes

。这时如果一切正常的话，

系统将提示有两个编译错误

（

嘿 嘿，我指的是正常情

况下

）

，难道是

BCB

的

BUG

？提示找不 到

OlePrecedure

的定义。我靠。记忆中有个

OleProcedure

， 一个

o

，一个

e

，该不会真的是笔误

吧。 将两处

OlePrecedure

换成

OleProcedure

，再次编

译，

ok

了，编译成功， 点击

Install

安装。

3.

如果上一个步骤成功的话， 在组件面板的

ActiveX

下将多 出两个控件：

MsTscAx

和

MsRdpClient

，我们主

要是利用

MsTscAx

控件。

4. MsTscAx

控件的常用属性和方法：

pHeight = 600;//

桌面高度

pWidth = 800;//

桌面宽度