請問 如何用 TRegistry 來接收 REG_BINARY 的資料 再把 REG_BINARY 轉換為 看的懂得自串 謝謝

epard 你好 REG_BINARY 通常存的是ICON或游標或圖示的位元資料,不知要轉成什麼樣的字串,人才看得懂呢?更何況還可能是任何其他格式的資料。

引言: epard 你好 REG_BINARY 通常存的是ICON或游標或圖示的位元資料,不知要轉成什麼樣的字串,人才看得懂呢?更何況還可能是任何其他格式的資料。

您好 在 regedit 中 HKEY_LOCAL_MACHINE\SYSTEM\MountedDevices 的資料 就像圖片右邊的文字 請問要如何轉換 謝謝

epard 你好 試試看  

Var
  Registry : TRegistry;
  Buff : PChar;
  l :integer;
begin
  Registry := TRegistry.Create(KEY_READ);
  Registry.RootKey:=HKEY_LOCAL_MACHINE;
  If Registry.OpenKey('\SYSTEM\MountedDevices',False) Then Begin
    l := Registry.GetDataSize('\??\Volume{3a039bd0-81b0-11d8-ab7c-806d6172696f}');
    Getmem(Buff,l);
    If Registry.ReadBinaryData('\??\Volume{3a039bd0-81b0-11d8-ab7c-806d6172696f}',Buff,l) = l Then Begin
      RichEdit1.Text := Buff; //在此可能看不到你所希望的畫面 *
    End;
    FreeMem(Buff,l);
  End;
  Registry.Free;    end; 

* 以上取得的Buff 只是字元陣列,因其內包含有不可視的字元,因此你還要有其他的程式碼來加以改變其視覺化的字元,以下提供一連結(本站站長提供的範例)含Source Code 你可自行研習後,若還有問題再提問 http://delphi.ktop.com.tw/topic.php?topic_id=29705

您好 我執行您的程式後 出現 請問我要修改哪邊 delphi 7.0 windows xp pro 謝謝

epard 你好     我試了一下果然會發生同樣的問題，而且是發生在ReadBinaryData後Buff竟然無法存取(無效的指標)了，真是奇怪!

這有一篇: http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&th=5772b69483a9cb49&rnum=5

uses
  Registry;    procedure TFrmReadBinaryData.Button1Click(Sender: TObject);
const
  KeyName: string = 'System\CurrentControlSet\control\TimeZoneInformation';
  ValName: string = 'DaylightStart';
var
  i:        integer;
  keyGood:  boolean;
  regKey:   TRegistry;
  timeInfo: array of byte;
  tmpStr:   string;
  vSize:    integer;
begin
  regKey := TRegistry.Create;
  try
    regKey.RootKey := HKEY_LOCAL_MACHINE;
    keyGood        := regKey.OpenKey(keyName, false);        if (keyGood) then
    begin
      vSize := regKey.GetDataSize(valName);          if (vSize > 0) then
      begin
        SetLength(timeInfo, vSize);
        regKey.ReadBinaryData(valName, timeInfo[0], vSize);            for i := 0 to vSize - 1 do
          tmpStr := tmpStr +
                    Format('%.2X ', [timeInfo[i]]);            Delete(tmpStr, Length(tmpStr), 1);
        Label1.Caption := tmpStr;
      end;
    end;
  finally
    regKey.Free;
  end;
end;

-- He just never quits. 發表人 - hagar 於 2004/04/06 19:27:50

引言: 這有一篇: http://groups.google.com.tw/groups?hl=zh-TW&lr=&ie=UTF-8&oe=UTF-8&th=5772b69483a9cb49&rnum=5

uses
  Registry;    procedure TFrmReadBinaryData.Button1Click(Sender: TObject);
const
  KeyName: string = 'System\CurrentControlSet\control\TimeZoneInformation';
  ValName: string = 'DaylightStart';
var
  i:        integer;
  keyGood:  boolean;
  regKey:   TRegistry;
  timeInfo: array of byte;
  tmpStr:   string;
  vSize:    integer;
begin
  regKey := TRegistry.Create;
  try
    regKey.RootKey := HKEY_LOCAL_MACHINE;
    keyGood        := regKey.OpenKey(keyName, false);        if (keyGood) then
    begin
      vSize := regKey.GetDataSize(valName);          if (vSize > 0) then
      begin
        SetLength(timeInfo, vSize);
        regKey.ReadBinaryData(valName, timeInfo[0], vSize);            for i := 0 to vSize - 1 do
          tmpStr := tmpStr +
                    Format('%.2X ', [timeInfo[i]]);            Delete(tmpStr, Length(tmpStr), 1);
        Label1.Caption := tmpStr;
      end;
    end;
  finally
    regKey.Free;
  end;
end;

-- He just never quits. 發表人 - hagar 於 2004/04/06 19:27:50

您好 那我應該如何把像上圖 binary 的部份 轉成 其右邊可看的懂的文字 謝謝

epard 你好    以下提供一連結(本站站長提供的範例)含Source Code  http://delphi.ktop.com.tw/topic.php?topic_id=29705

努力 try 中 謝謝各位熱心的解答 兩位所提供的訊息都很有幫助