[델파이]레지스트리 읽기/쓰기

출처 :http://www.borlandforum.com/impboard/impboard.dll?action=read&db=del_qna&no=2726

// 아래의 함수와 프로시져는 각각 레지스트리에서 문자열을 읽어오는 함수와
// 레지스트리에 문자열을 입력하는 프로시져입니다.
// 사용하시기 전에 반드시 unit 절에 registry를 추가하셔야 하는 점을
// 기억하십시오.


function TForm.GetStringFromRegistry( sKey, sItem, sDefVal : string ) : string;
var
reg : TRegIniFile;
begin
reg := TRegIniFile.Create( sKey );
Result := reg.ReadString('', sItem, sDefVal );
reg.Free;
end;

procedure TForm.SaveStringToRegistry( sKey, sItem, sVal : string );
var
reg : TRegIniFile;
begin
reg := TRegIniFile.Create( sKey );
reg.WriteString('', sItem, sVal + #0 );
reg.Free;
end;


// 위의 함수 및 프로시져를 스크립트에 추가하셨다면 이제 다음과 같이 사용하시면
// 됩니다.

// 레지스트리의 특정 위치에 원하는 문자열을 넣어줄 경우

SaveStringToRegistry('Software'+'\MyProgram','PassWord','1234');

// 레지스트리의 특정 위치에서 문자열을 읽어올 경우

var PassWord : String;
PassWord := GetStringFromRegistry('Software'+'\MyProgram','PassWord','');

// * 참고 *
// 레지스트리에는 문자열만 사용할 수 있으며, 대소문자를 구별한다는 점을
// 명심하십시오.