uses
.., Registry;
procedure GetRegistry;
var
Reg: TRegistry;
TempInteger: Integer;
TempString: string;
begin
Reg := TRegistry.Create;
//Reg := TRegistry.Create(KEY_ALL_ACCESS or KEY_WOW64_64KEY);
try
//Root를 선택합니다.
Reg.RootKey := HKEY_LOCAL_MACHINE;
//Key가 없을 경우 생성합니다.
if Reg.OpenKey('\Software\Test', True) then begin
//Key의 Value값 가져오기.
TempString := Reg.ReadString('str');
TempInteger := Reg.ReadInteger('int');
Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;
반응형