请问 RegSetValueEx 函数这么使用？

Question

请举个例子，比如我要写入像注册表某个指定的键值写入整形。请问该这么实现？

Answer 1

你用API实现？
delphi本身有类方法实现
use registry；var reg:Tregistry;reg:=Tregistry.Create;
  reg.RootKey:=HKEY_LOCAL_MACHINE;
  reg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Explorer',false);
  autovalue:=reg.readInteger('NoDriveTypeAutoRun');  if checkbox3.Checked then
  begin
    if autovalue<>255 then
      reg.Writeinteger('NoDriveTypeAutoRun',255); //全部禁用
  end else begin
    if autovalue=255 then
      reg.WriteInteger('NoDriveTypeAutoRun',149);//十六进制0x95,禁U盘自动播放；91,U盘不禁 ,xp默认
  end;
  reg.CloseKey;
  reg.free;

Answer 2

  
  var   
      hK:HKEY;   
      dwRet:DWORD;   
      iValue:integer;   
  begin   
      iValue:=1;   
      dwRet:=RegOpenKey(HKEY_LOCAL_MACHINE,'Software\Microsoft',hK);   
      if dwRet=ERROR_SUCCESS then   
      begin   
          RegSetValueEx(hK,'EnableDHCP',0,REG_DWORD,@iValue,sizeof(iValue));   
          RegCloseKey(hK);   
      end;   
  end;