Mega Code Archive
Adding Explorer MenuItem
<![CDATA[
Title: Adding Explorer MenuItem
Question: Creating Explorer MenuItem band object
Answer:
function AddMenuItem(ConnType: TconnType; MenuText, StatusBarText,
GuidOrPath: string; HelpMenu: Boolean): string;
var
GUID: TGUID;
ID: string;
Reg: TRegistry;
begin
CreateGuid(GUID);
ID := GuidToString(GUID);
Reg := TRegistry.Create;
with Reg do begin
RootKey := HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\Internet Explorer\Extensions\'
+ ID, True);
if HelpMenu then WriteString('MenuCostumize', 'help');
WriteString('CLSID', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
WriteString('MenuText', MenuText);
WriteString('MenuStatusBar', StatusBarText);
case ConnType of
EXECUTABLE: WriteString('Exec', GuidOrPath);
COM_OBJECT: WriteString('ClsidExtension', GuidOrPath);
SCRIPT: WriteString('Script', GuidOrPath);
end;
CloseKey;
OpenKey('\Software\IE5Tools\Menu Items\', True);
WriteString(MenuText, ID);
CloseKey;
Free;
end;
Result := ID;
end;
]]>