如下,写注册表:
If Not RegC.KeyExists('SOFTWARE\MICROSOFT\INTERNET EXPLORER\EXTENSIONS\{0713E8D2-850A-101B-AFC0-4210102A8DA7}') Then
Begin
RegC.openkey('SOFTWARE\MICROSOFT\INTERNET EXPLORER\EXTENSIONS\{0713E8D2-850A-101B-AFC0-4210102A8DA7}',true);
RegC.writestring('ButtonText',****************);
RegC.writestring('MenuText',**************);
RegC.writestring('CLSID','{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');
RegC.writestring('Default Visible','Yes');
RegC.writestring('Exec',Application.ExeName);
RegC.writestring('Icon',*******);
end;