레지스트리 값 읽고 쓰기

[선언부]

var
  Reg: TRegistry;
  RegVal: String;

 

[초기화]

  Reg := TRegistry.Create;
   Reg.RootKey := HKEY_LOCAL_MACHINE;  
   Reg.OpenKey(REG_CLSID, True);

 

[값 읽기]

  RegVa := Reg.ReadString('REG_READ_NAME');

 

[값 쓰기]

  Reg.WriteString('REG_WRITE_NAME', '1');

 

[메모리 해제]

  Reg.Free;