Delphi/レジストリ操作

TRegistry

• サンプル

uses
  Windows, Messages, ・・・ Registry;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private 宣言 }
 public
   { Public 宣言 }
 end;

var
  &Reg    :  TRegistry;

begin
  Reg    :=   TRegistry.Create;
  Reg.Rootkey  :=  HKEY_XXXXX;
  Reg.OpenKey('場所', false );
  Reg.Free;
  str1: String;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // レジストリからキーを取り込む
  str1 := Reg.ReadString('名前');
  // レジストリにキーを書き込む
  Reg.WriteString('名前',str1);

  Reg.CloseKey:
end;

end.