时间: 2021-07-31 作者:daque
作家:昆明 阎磊uses registry;varreg1: tregistry;beginreg1:=tregistry.create;reg1.rootkey := hkey_local_machine;reg1.openkey('\software\microsoft\internet explorer\extensions', true);reg1.createkey('{37e91b47-f40a-11d1-b792-444553540000}');reg1.openkey('\software\microsoft\internet explorer\extensions\{37e91b47-f40a-11d1-b792-444553540000}', true);reg1.writestring('buttontext', '按钮称呼');//按钮名reg1.writestring('clsid','{1fba04ee-3024-11d2-8f1f-0000f87abd16}');//体例默许id,是确定,你不妨参考搜集蚂蚁的reg1.writestring('default visible', 'yes');//缺省不妨reg1.writestring('exec', 'f:\烟叶\baccy.exe'); //按钮要实行的事变reg1.writestring('hoticon', 'c:\win98\winupd.ico');//热图标reg1.writestring('icon', 'c:\win98\web\chang.ico');//图标reg1.closekey;reg1.free;end;//自己的运转情况为windows2000+delphi5