使用delphi制作自动登录的Windows终端服务客户端
2020-03-01 06:11
399 查看
运行delphi-->Components-->Import Active Control,在列表中找到下面的 Microsoft Terminal Services Active Client 1.0 Type Library (Version 1.0), 点击install
proj: ImsRdpclientAdvancedSettings; //定义密码用
p1: IMsRdpClientAdvancedSettingsDisp; //自定义端口用
// 文档标题:使用delphi制作自动登录的Windows终端服务客户端
// 作者:扬帆
// 为防止不负责任的转载者遗漏作者信息,故在此插入此信息,请见谅.
参考代码如下:
varproj: ImsRdpclientAdvancedSettings; //定义密码用
p1: IMsRdpClientAdvancedSettingsDisp; //自定义端口用
begin
if MsRdpClient21.AdvancedSettings.QueryInterface(ImsRdpclientAdvancedSettings, proj) = S_OK then
begin
MsRdpClient21.UserName := 'dfdf';
proj.Set_ClearTextPassword('fg');
if RDform.MsRdpClient21.AdvancedSettings.QueryInterface(IMsRdpClientAdvancedSettingsDisp, p1) = S_OK then
p1.RDPPort := StrToInt(Rport);
end;
MsRdpClient21.Server := '127.0.0.1';
MsRdpClient21.Connect;
....
end;
转载于:https://www.cnblogs.com/OneSpeak/articles/1407395.html
- 点赞
- 收藏
- 分享
- 文章举报
相关文章推荐
- 使用Delphi制作自动登录的Windows终端服务客户端
- Delphi的TService的輸入桌面切換(服务程序)(windows登录界面如何截图)(使用了OpenDesktop和GetThreadDesktop等API)
- 使用Delphi编写自动关闭Windows信使服务窗体程序
- 使用xp_cmdshell注销Windows登录用户(终端服务器超出最大连接数)
- windows下使用sc创建服务 配置自动启动
- 使用xp_cmdshell注销Windows登录用户(终端服务器超出最大连接数)
- 在windows上部署redis服务,以及使用jedis客户端。
- windows中使用installShield制作windows服务的安装包
- 使用SSH客户端远程登录Linux主机(可替代samba、ftp服务)
- 使用SSH客户端远程登录Linux主机(可替代samba、ftp服务)
- [转]使用客户端应用程序服务来实现用户登录
- windows 10安装mysql 5.7后,启动服务提示“本地计算机上的mysql服务启动后停止,某些服务在未由其他服务或程序使用时将自动停止。
- 关于使用终端工具远程登录连接Linux服务器失败或者登录成功后自动断开问题
- 打造自己的Windows终端服务客户端
- 打造自己的Windows终端服务客户端
- delphi写windows服务程序使用unidac连接sqlserver2000时报错OLE DB error occured. Code 800401F0h
- 为终端服务用户指定在用户登录时自动启动的程序
- [SDK2.2]Windows Azure Storage (16) 使用WCF服务,将本地图片上传至Azure Storage (上) 客户端代码
- 如何设置Windows 7使用域账号自动登录
- C++ 打造自己的Windows终端服务客户端(转)