E, ajde daj malo koda: I za jedno (toolbar), i za drugo ("XP fazon"). A ja evo postujem (mozda vec znas) kod za dodavanje "tastera" u IE:
Code:
Procedure CreateExplorerButton(Path: String);
Const Tagit = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
Var Reg : TRegistry;
Path: String;
Path1: String;
Merge: String;
Begin
Path := 'c:\your program path';
Reg := TRegistry.CReate;
try
With Reg Do
Begin
RootKey := HKEY_LOCAL_MACHINE;
Path1 := 'Software\Microsoft\Internet Explorer\Extensions';
Merge := Path1 + Tagit;
OPenKey(Merge,True);
WriteString('ButtonText','ButtonText');
WriteString('MenuText','Tools Menu Item');
WriteString('MenuStatusBar','Run Script');
WriteString('ClSid','{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
WriteString('Default Visible','Yes');
WriteString('Exec',Path+'\ProgramName.exe');
WriteString('HotIcon',',4'); //mouseover ikona
WriteString('Icon',',4'); //ikona
end
Finally
Reg.CloseKey;
Reg.Free;
End;
//ja sam morao da menja CLSID, nije 'teo sa ovim starim
Toolbar za IE. Znam da ga napravim, al ima tu... :)
Re: Toolbar za IE. Znam da ga napravim, al ima tu... :)
...