レジストリにバイナリ値を書き込む

むー 2005-07-27 05:56:50 No: 16636

レジストリのREG_BINARYのデータに16進数カラーコードを表すバイナリデータを書き込みたいのですが、わかりません。サンプル等ないでしょうか・・・

レジストリエディタ）REG_BINARY 00 FF 00

のようになっています。
var
  Reg:TRegistry;
  buf : PChar;
begin
    buf := 'F';
    Reg.WriteBinaryData('IM Color', buf, 4);
    Reg.CloseKey;

みん 2005-07-27 06:48:22 No: 16637

君子危うきに近寄らず…初心者レジストリに触らず？
var
  aColor: TColor;
  RegKey: string;
  Reg: TRegistry;
begin
  aColor := $0077ffcc;
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER;
  RegKey := '\Software\MyApp';
  if Reg.OpenKey(RegKey, False) then begin
//  if Reg.ValueExists('IM Color') then
      Reg.WriteBinaryData('IM Color', aColor, 4);
    Reg.CloseKey;
  end;
  Reg.Free;
end;

むー 2005-07-27 06:48:36 No: 16638

すいません。自己解決できました。
レジストリの任意のキーの下の階層にあるキーを列挙したいのですが、DOMの様な考え方では無理でしょうか。

むー 2005-07-27 06:50:28 No: 16639

みんさん、ありがとうございます。入れ違いになってしまったようです。
ひょっとして「むーみん」でしょうか。。。＾＾；