if g_KeUpdateSystemTime_Address<>nil then
begin
g_pmdlSystemCall:=MmCreateMdl(nil,g_KeUpdateSystemTime_Address,$6D);
if g_pmdlSystemCall<>nil then
begin
MmBuildMdlForNonPagedPool(g_pmdlSystemCall);
g_pmdlSystemCall^.MdlFlags:=g_pmdlSystemCall^.MdlFlags or MDL_MAPPED_TO_SYSTEM_VA;
MappedSystemCallTable:=MmMapLockedPages(g_pmdlSystemCall,KernelMode);
Byte_KeUpdateSystemTime:=g_KeUpdateSystemTime_Address;
if Byte_KeUpdateSystemTime^=$B9 then
begin
DbgPrint('版本匹配成功1!'#13#10);
Cardinal_KeUpdateSystemTime:=PTR(g_KeUpdateSystemTime_Address_C+1);
if Cardinal_KeUpdateSystemTime^=$FFDF0000 then
begin
DbgPrint('版本匹配成功2!'#13#10);
SysBBOK:=true;
end;
end;
end;
end;
procedure Wu_GetLinkOfS(sIn : string; Chr : Char; nIndex : Integer; var sOut : string);
var
I,II : Integer;
pIn : PChar;
begin
sOut := sIn;
II := 1;
for I := 1 to Length(sIn) do begin
if sIn[I] = Chr then begin
Inc(II);
if (II = nIndex) then begin
sOut := Copy(sIn, I + 1, Length(sIn));
Break;
end;
end;
end;
II := Pos(Chr, sOut);
if II > 0 then
Delete(sOut, II, Length(sOut));
end;