レジストリの値を変更するサンプルはありますか？

ジューザ 2005-06-03 20:50:50 No: 15346

お世話になります。Delphi初心者です。
レジストリの値を変更するプログラム(exeファイル)を作成し、
社内のパソコン設定変更をユーザー側でしてもらいたいと
考えています。
文字列及び、DWORD値を検索し、変更したいのですけど、
サンプルがありましたらお教えください。

deldel 2005-06-03 21:00:13 No: 15347

//文字列の書込
function f_boRegW_Str(Root: LongWord; Key, Name, saSetData: AnsiString): Boolean;
{
Root     : ルートキー
Key      : カレントキー
Name     : 名前
saSetData: 設定するデータ
}
var
  Reg: TRegistry;
  boOpen: Boolean;
begin
  Result := True;

  Reg := TRegistry.Create;
  try
    Reg.RootKey := Root;
    boOpen := Reg.OpenKey(Key, True); //キーが無い場合作成する
    if boOpen then begin
      try
        try
          Reg.WriteString(Name, saSetData);
        except
          Result := False; //書き込めなかったら例外発生
        end;
      finally
        Reg.CloseKey;
      end;
    end else begin
      Result := False;
    end;
  finally
    Reg.Free;
  end;
end;

ジューザ 2005-06-03 23:02:27 No: 15348

早々とありがとうございます。
早速テストしてみます。