原来这么读取qword值

冥界3大法王

[Delphi] 纯文本查看 复制代码

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[0], Size);
          TmpStr := '';
          For I := 0 to Size - 1 do TmpStr := TmpStr + Format('%.2X ', [Buffer[I]]);
          Delete(TmpStr, Length(TmpStr), 1);
          Result := TmpStr;
        end;
      end;
    end;
  Except
    Result := '[error reading]';
  end;
  If Result = '' Then Result := '[null]';
end;

百度那狗屎，又没找到，干什么吃的？ 吃尿吧。

邪恶海盗

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

冥界3大法王

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

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