Как добавить свой пункт меню?

Previous  Top  Next

    
 

 

 

Code:

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;

 

 

©Drkb::02387

Взято с Delphi Knowledge Base: http://www.baltsoft.com/