RSS|Ͷ
λãվҳ > ϵͳ

delphi͹رWindows xp ǽ

procedureSet_WindowsXP_FireWall(Enable:boolean);//winsvc,shellapi//Set_WindowsXP_FireWall(false);//P]WindowsXpwww.delphitop.com//varSCM,hService:LongWord;sStatus:TServiceStatus;beginifEn
ϵͳ ǩ ߣadmin ڣ2011-08-18 11.39.57

delphi ADSLϵͳ<