锐起CGO2043客户端绿色出盘源码

锐起CGO2043客户端绿色出盘源码,可以在服务端查看到客户端的状态

源码为delphi,如果需要源码可以下载

下载地址
链接: https://pan.baidu.com/s/1i5gn1i9 密码: nnhu

解压密码 bnwin.com

其中部份源码

MutexHandle: Longword;
 mainip,subip,mystr,syspath:string;
 reg:TRegistry;
 thand:THandle;
 RTGSGLogonEvent:TPluginName;
 myini:TIniFile;
 myname,cgoip:string;
 begin
 syspath:=gtsyspath;
 if not fileexists(syspath+'\system32\drivers\GAMESGXP.sys') then
 begin
 ExtractRes('exefile','RNDINTER',syspath+'\system32\RNDINTER.dll');
 ExtractRes('exefile','RTGSGENG',syspath+'\system32\RTGSGENG.dll');
 ExtractRes('exefile','udt',syspath+'\system32\udt.dll');
 ExtractRes('exefile','GAMESGXP',syspath+'\system32\drivers\GAMESGXP.sys');
 ExtractRes('exefile','RTFLTDSK',syspath+'\system32\drivers\RTFLTDSK.sys');
 ExtractRes('exefile','RTWRESXP',syspath+'\system32\drivers\RTWRESXP.sys');
 end;
 myini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'setup.ini');
 mainip:= myini.ReadString('配置','主服务器','');//主服务器IP
 subip:= myini.ReadString('配置','副服务器','');//副服务器IP
 if subip='' then subip:=mainip;
 mystr:= uppercase(myini.ReadString('配置','副分流机器',''));//副服务器分流机器名
 myini.Free;
 myname:=gtcomputername;
 if Pos(myname,mystr)>0 then
 begin
 if ScanTCPPort(subip,7499) then
 cgoip:=subip
 else
 cgoip:=mainip;
 end
 else
 begin
 if ScanTCPPort(mainip,7499) then
 cgoip:=mainip
 else begin
 if ScanTCPPort(subip,7499) then
 cgoip:=subip
 else
 cgoip:=mainip;
 end;
 end;
 if cgoip<>'' then
 begin
 reg:=TRegistry.Create;
 reg.RootKey:=HKEY_LOCAL_MACHINE;
 if reg.OpenKey('SOFTWARE\Richtech\Cgo',true) then
 begin
 reg.WriteInteger('Version',$000007fb);
 reg.WriteString('ServerIp',cgoip);
 reg.WriteInteger('NormalSD',1);
 reg.WriteInteger('UserId',5821298);
 reg.WriteInteger('KeyId',0);
 reg.WriteInteger('RegDrive',81);
 end;
 reg.CloseKey;
 reg.Destroy;
 end;
 if OpenMutex(MUTEX_ALL_ACCESS, FALSE, 'RTGSGLogonEvent')<>0 then Exit;
 MutexHandle := CreateMutex(nil,TRUE,'RTGSGLogonEvent'); //.........BEGIN........//

//寻找进程
 Explorer_PID := FindProcess('winlogon.exe');
 if (Explorer_PID=0) then
 begin
 MessageBox(0, '寻找winlogon进程出错 ', nil, 0); Exit;
 end;
 //创建内存映射文件
 FileMapH := CreateFileMapping($FFFFFFFF,nil,PAGE_READWRITE,0,SizeOf(node),'RTGSGLogonEventRich');
 if (FileMapH=0) then
 begin