Mega Code Archive
Adding Explorer Bar
<![CDATA[
Title: Adding Explorer Bar
Question: Creating Custom Explorer Bars , Band Object
Answer:
function AddExplorerBar(BarTitle, Url: string; BarSize: Int64; Horizontal:
Boolean): string;
const
EXPLORERBAR_ID = '{4D5C8C2A-D075-11d0-B416-00C04FB90376}';
VERTICAL_BAR = '{00021493-0000-0000-C000-000000000046}';
HORIZONTAL_BAR = '{00021494-0000-0000-C000-000000000046}';
var
GUID: TGUID;
SysDir,ID: string;
Reg: TRegistry;
begin
CreateGuid(GUID);
ID := GuidToString(GUID);
Reg := TRegistry.Create;
with Reg do try
RootKey := HKEY_CLASSES_ROOT;
OpenKey('\CLSID\' + ID, True);
WriteString('', 'BarTitle');
CloseKey;
CreateKey('\CLSID\' + ID + '\Implemented Categories');
if HORIZONTAL then
CreateKey('\CLSID\' + ID + '\Implemented Categories\' +
HORIZONTAL_BAR) else
CreateKey('\CLSID\' + ID + '\Implemented Categories\' +
VERTICAL_BAR);
SetLength(SysDir, 255);
GetSysDirectory(PChar(SysDir), 255);
SysDir := PChar(SysDir) + '\SHDOCVW.DLL';
OpenKey('\CLSID\' + ID + '\InProcServer32', True);
Writestring('', SysDir);
WriteString('Threadingmodel', 'Apartment');
CloseKey;
OpenKey('\CLSID\' + ID + '\Instance', True);
WriteString('CLSID', EXPLORERBAR_ID);
CloseKey;
OpenKey('\CLSID\' + ID + '\Instance\InitPropertyBag', True);
WriteString('Url', URL);
CloseKey;
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('Software\Microsoft\Internet Explorer\Explorer Bars\'
+ ID, True);
WriteBinaryData('BarSize', BarSize, SizeOf(BarSize));
CloseKey;
OpenKey('\Software\IE5Tools\Explorer Bars\', True);
WriteString(BarTitle, ID);
CloseKey;
OpenKey('\Software\Microsoft\Internet Explorer\Toolbar', True)
WriteString(ID, '');
CloseKey;
finally
Free;
end;
result := ID;
end;
]]>