Delphi往注册表写入字符串、REG_DWORD、二进制

procedure TForm1.Button1Click(Sender: TObject);
var
reg, reg1: TRegistry;
info: TRegDataInfo;
buf: PByteArray;
bufSize: Integer;
ValueName: string;
begin
reg := TRegistry.Create;
reg1 := TRegistry.Create;
try
reg.RootKey := HKEY_CLASSES_ROOT;
reg1.RootKey := HKEY_CLASSES_ROOT;
if reg.OpenKey( '/DelphiProject/Shell/Open/command ', True) and
reg1.OpenKey( '/DelphiProject/Shell/Open/dpr ', True) then
begin
ValueName := 'Data1 ';

reg.GetDataInfo(ValueName, info);
case info.RegData of
rdString: // 字符串
begin
reg1.WriteString(ValueName, reg.ReadString(ValueName));
reg.DeleteValue(ValueName);
end;
rdInteger: // DWORD
begin
reg1.WriteInteger(ValueName, reg.ReadInteger(ValueName));
reg.DeleteValue(ValueName);
end;
rdBinary: // 二进制
begin
bufSize := info.DataSize;
if bufSize > 0 then begin
buf := AllocMem(bufSize);
reg.ReadBinaryData(ValueName, buf^, bufSize);
reg1.WriteBinaryData(ValueName, buf^, bufSize);
FreeMem(buf, bufSize);
reg.DeleteValue(ValueName);
end;
end;
end;
reg.CloseKey;
end;
finally
reg.Free;
end;
end;

www.taoyou100.cn 淘友100 满意100，提供给您最信赖的网络购物享受。