原来这么读取qword值

冥界3大法王 发表于 2021-3-28 19:36

Function RegToStr(PassReg : TRegistry; GetString : String) : String;
Var
Value : Integer;
Size : Integer;
Buffer : Array of Byte;
TmpStr : String;
I : integer;
Begin
Try
Case PassReg.GetDataType(GetString) Of
   rdString : Begin
   Result := PassReg.ReadString(GetString);
   end;
   rdInteger : Begin
   Value := PassReg.ReadInteger(GetString);
   Result := IntToStr(Value);
   end;
   rdBinary : Begin
   Size := PassReg.GetDataSize(GetString);
   If Size > 0 Then Begin
      SetLength(Buffer, Size);
      PassReg.ReadBinaryData(GetString, Buffer, Size);
      TmpStr := '';
      For I := 0 to Size - 1 do TmpStr := TmpStr + Format('%.2X ', ]);
      Delete(TmpStr, Length(TmpStr), 1);
      Result := TmpStr;
   end;
   end;
end;
Except
Result := '';
end;
If Result = '' Then Result := '';
end;
百度那狗屎，又没找到，干什么吃的？吃尿吧。

邪恶海盗 发表于 2021-3-28 20:06

为毛不用GG,我绞尽脑汁每天喝酸奶出去就是为了用GG搜索...

冥界3大法王 发表于 2021-3-28 20:37

邪恶海盗发表于 2021-3-28 20:06
为毛不用GG,我绞尽脑汁每天喝酸奶出去就是为了用GG搜索...

@邪恶海盗
还得挂代代呗。。。

页: [1]

吾爱破解 - 52pojie.cn's Archiver

原来这么读取qword值