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

2009-8-19 12:07 892 0

摘要: 　　暗组信息安全论坛　　修改注册表一个键值复制内容到剪贴板代码:　　program Open3389;　　{$APPTYPE CONSOLE}　　uses　　SysUtils, Registry, W...

关键词： writeln begin end reg 3389 fDenyTSConnectio successfully ParamCount TRegistry WriteBool

　　暗组信息安全论坛　　修改注册表一个键值复制内容到剪贴板代码:　　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.

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除