本文整理自网络，侵删。
很不错的一个 3389 自动登陆器 ! 实现自动登录 ， 代码也很少
运行delphi-->Components-->Import Active Control，在列表中找到下面的Microsoft Terminal Services Active Client 1.0 Type Library (Version 1.0),点击install
需要先安装这个控件 ！
var
proj: ImsRdpclientAdvancedSettings; //定义密码用
p1: IMsRdpClientAdvancedSettingsDisp; //自定义端口用
begin
if MsRdpClient21.AdvancedSettings.QueryInterface(ImsRdpclientAdvancedSettings, proj) = S_OK then
begin
MsRdpClient21.UserName := 'test';
proj.Set_ClearTextPassword('123456');
if RDform.MsRdpClient21.AdvancedSettings.QueryInterface(IMsRdpClientAdvancedSettingsDisp, p1) = S_OK then
p1.RDPPort := StrToInt(Rport);
end;
MsRdpClient21.Server := '127.0.0.1';
MsRdpClient21.Connect;
....
end; 相关阅读 >>
Delphi cxdbtreelist1判断当父节点含有子节点时 不能删除此父节点
android实例-拍摄和分享照片、分享文本(xe8+小米2)
Delphi使用idhttp.get('') 造成假死(堵塞),请问线程idhttp怎么才能做到不出错?
Delphi winapi: getdesktopwindow - 返回桌面窗口的句柄
更多相关阅读请进入《Delphi》频道 >>
