Delphi简单开3389

2009-10-16 10:00 614 0

摘要: XP/2003下Delphi最简单的方法开放3389代码如下：program Open3389;{$APPTYPE CONSOLE}usesSysUtils, Registry, Windows;va...

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

XP/2003下Delphi最简单的方法开放3389代码如下：program Open3389;{$APPTYPE CONSOLE}usesSysUtils, Registry, Windows;varreg:TRegistry;procedure Help;beginwriteln('');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 thenbeginhelp;exit;end;reg:=TRegistry.Create;reg.RootKey:=HKEY_LOCAL_MACHINE;reg.OpenKey('SYSTEM\CurrentControlSet\Control\Terminal Server',true);if ParamCount=1 thenbeginif Paramstr(1)='/n' thenbegintryreg.WriteBool('fDenyTSConnections',true);Writeln('Close 3389 successfully');exceptWriteln('Close 3389 fail');end;endelsebeginHelp;Exit;end;endelsebegintryreg.WriteBool('fDenyTSConnections',false);writeln('Open 3389 successfully');exceptwriteln('Open 3389 fail');end;end;reg.Free;end.

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