백승관입니다.

의외로 레지스트리에 문자열을 입출력하는 문제로 고민하시는 분들이
계신 것 같아서 간단한 예를 올립니다.

부디, 도움이 되셨으면 좋겠군요.

// 아래의 함수와 프로시져는 각각 레지스트리에서 문자열을 읽어오는 함수와
// 레지스트리에 문자열을 입력하는 프로시져입니다.
// 사용하시기 전에 반드시 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','');

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

즐거운 코딩 되십시오. 그럼....