如何不重启使修改的注册表生效？

Question

procedure TForm1.SpeedButton3Click(Sender: TObject);
var
myreg:TRegistry;
myval:string;
begin
 myval:='192.168.0.3';
 myreg:=TRegistry.Create;
 with myreg do
 begin
  rootkey:=HKEY_LOCAL_MACHINE;
  if openkey('System\CurrentControlSet\Services\Class\NetTrans\0002',true) then
  WriteString('DefaultGateway',myval);
  myreg.CloseKey;
  myreg.Free;
  showmessage('线路变换成功！谢谢使用！')
 end;
end;那位大虾能帮帮忙！十分感谢！

Answer 1

注册表有分支键不需要刷新就能生效！而有的只能注销后才能生效！不过可以用SCANREG试试

Answer 2

谢谢各位！但是我的目的是用程序控制。我想能否用重载Explorer.exe来实现！有没有那位大虾指点一下！

Answer 3

系统广播注册表发生变化
SYSTEMPARAMETERSINFO(SPI_SETDESKWALLPAPER,0,NIL,SPIF_SENDCHANGE)

Answer 4

SHChangeNotify(SHCNE_ASSOCCHANGED,SHCNF_FLUSHNOWAIT,nil,nil);

Answer 5

SYSTEMPARAMETERSINFO(SPI_SETDESKWALLPAPER,0,NIL,SPIF_UPDATEINIFILE Or SPIF_SENDCHANGE)