不使用API与Registry单元实现注册表读写！

不使用API与Registry单元实现注册表读写！

 

var    regs:   variant;

         regstring:   string;

begin

regs:=  createOLEobject('wscript.shell');
regstring:=  'HKEY_LOCAL_MACHINE/HARDWARE/DESCRIPTION'
regs.regwrite( regstring,  'yes',  'REG_SZ' );

end;

 

利用OLE对象实现！