1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
|
procedure ....
const
Tagit = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
Path1: string;
Merge: string;
begin
with TRegistry.Create do
begin
try
RootKey := HKEY_LOCAL_MACHINE;
Path1 := 'Software\Microsoft\Internet Explorer\Extensions';
Merge := Path1 + Tagit;
OpenKey(Merge, True);
WriteString('ButtonText', 'Nouveau');
WriteString('MenuText', 'Tools Menu Item');
WriteString('MenuStatusBar', 'Run Script');
WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
WriteString('Default Visible', 'Yes');
WriteString('Exec', Application.ExeName);
WriteString('HotIcon', ',4');
WriteString('Icon', ',4');
finally
Free;
end;
end;
end; |