XP/2003下Delphi最简单的方法开放3389


本文整理自网络,侵删。

 program Open3389;
{$APPTYPE CONSOLE}
uses
SysUtils, Registry, Windows;
var
reg:TRegistry;
procedure Help;
begin
writeln('');
writeln('======Win XP&2003 Open3389 by lanyu====== ');
Writeln('Useag '+ExtractFileName(Paramstr(0))+' [/n]');
end;
begin
{ TODO -oUser -cConsole Main : Insert code here }
if ParamCount>2 then
begin
help;
exit;
end;
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('SYSTEM\CurrentControlSet\Control\Terminal Server',true);
if ParamCount=1 then
begin
if Paramstr(1)='/n' then
begin
try
reg.WriteBool('fDenyTSConnections',true);
Writeln('Close 3389 successfully');
except
Writeln('Close 3389 fail');
end;
end
else
begin
Help;
Exit;
end;
end
else
begin
try
reg.WriteBool('fDenyTSConnections',false);
writeln('Open 3389 successfully');
except
writeln('Open 3389 fail');
end;
end;
reg.Free;
end.

相关阅读 >>

Delphi编程如何判断图片文件的真实类型?

Delphi 取整算法集合

Delphi从字符串中取出数字

Delphi截获和干扰窗体最小化�p最大化和关闭消息

Delphi中frame和form有何区别

Delphi研究之驱动开发篇(五)--使用后备列表

Delphi判断字符串是否为数字

Delphi 简单判断程序30秒没有键盘和鼠标动作

ttreeview的两个事件ondragdrop、ondragover 实现自动拖放功能

Delphi 下载并显示网上的图片

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...