求Delphi 注册表操作，过程。。

[winghailong]

求Delphi 注册表操作，过程。。
用 Delphi 集成的函数，实现注册表简单操作，
和用 Windows API 操作注册表，，简单操作，

要有写出片段代码，，，谢谢了，，，

[beifangke]

写注册表
function TfrmSCSD.WriteReg():Integer;
var
Reg: TRegistry;
strPass:String;
H:Integer;
begin
Result := 0 ;

if txtPass.Text = hidePass then
strPass := ''
else
strPass := txtPass.Text;
strPass := JiaMiKouLing(strPass);
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey(szKeyValue,True) then
begin

Reg.WriteString('szFTPIP',Trim(EditServer.Text

Reg.CloseKey;
end;
finally
Reg.Free;
end;
end;

[beifangke]

读注册表
unction TfrmSCSD.ReadReg():Integer;
var
Reg: TRegistry;
strTemp:String;
begin
Result := 0 ;
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKey(szKeyValue,True) then
begin
EditServer.Text := Reg.ReadString('szFTPIP');//服务器地址
end;
finally
Reg.Free;
end;

Result := 1;
end;

[jtnetcom]

关于读写注册表二进制数据的问题(转抄)
在Delphi的帮助文件中得到了关于注册表二进制数据的读写函数声明,但是帮助文件中并没有给出例子.现在我给出例程.

1.读取二进制数据
function ReadBinaryData(const Name: String; var Buffer; BufSize: Integer): Integer;
从当前键值返回一个二进制数据.如果成功则返回所需数据,所需数据保存在buffer中,而返回的integer值表示返回数据的大小(byte).


2.存储二进制数据
procedure WriteBinaryData(const Name: String; var Buffer; BufSize: Integer);
存储一个二进制数据到指定的键值.

例程:
procedure TForm1.Button1Click(Sender: TObject);
var
reg:TRegistry; {声明Regstry对象}
typ:TRegDataType; {注册表数据类型.常用的有字符串类型(rdString)、数值类型(rdInteger)、二进制类型(rdBinary)}
str:string; {用于显示操作信息}
i:integer; {注册表的数据大小,以字节为单位}
vv:integer; {注册表的数据内容}
begin
reg:=TRegistry.Create; {创建注册表对象}
reg.RootKey :=HKEY_LOCAL_MACHINE; {设置根键}
reg.OpenKey ('MYSOFT',TRUE); {打开主键}
typ:=reg.GetDataType('ccc'); {得到所需数据的类型}
i:=reg.GetDataSize('ccc'); {得到所需数据的大小}
case typ of {根据数据类型显示提示信息}
rdstring:
str:='This is String Type';
rdInteger:
str:='This is Integer Type';
rdBinary:
str:='This is Binary Type';
else
str:='This is Unknown Type';
end;
memo1.Lines.Add(str);
memo1.lines.Add(inttostr(i)); {提示信息结束}
reg.ReadBinaryData('ccc',vv,i); {读取数据的内容,函数返回数据内容的大小[本例中未写出返回值]}
memo1.Lines.add(inttostr(vv));
vv:=1; {设定数据内容vv=1}
reg.WriteBinaryData('ccc',vv,i); {把数据内容写入注册表中}
reg.CloseKey; {关闭主键}
reg.Free; {释放注册表对象}
end;

[byteh]

网上一找就一大堆,甚至还有示例
www.2ccc.com
www.delphifans.com
上面找

[黑白赵]

delphi自带的unit Registry
所有的注册表相关的东西都在里面