Как добавить кнопку?

Previous  Top  Next

    
 

 

 

Code:

type

TConnType = (COM_OBJECT, EXPLORER_BAR, SCRIPT, EXECUTABLE);

 

function AddBandToolbarBtn(Visible: Boolean; ConnType: TConnType;

BtnText, HotIcon, Icon, GuidOrPath: string): string;

var

GUID: TGUID;

Reg: TRegistry;

ID: string;

begin

CreateGuid(GUID);

ID := GuidToString(GUID);

Reg := TRegistry.Create;

with Reg do

try

   RootKey := HKEY_LOCAL_MACHINE;

   OpenKey('\Software\Microsoft\Internet Explorer\Extensions\'

     + ID, True);

   if Visible then

     WriteString('Default Visible', 'Yes')

   else

     WriteString('Default Visible', 'No');

   WriteString('ButtonText', BtnText);

   WriteString('HotIcon', HotIcon);

   WriteString('Icon', Icon);

   case ConnType of

     COM_OBJECT:

       begin

         WriteString('CLSID', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');

         WriteString('ClsidExtension', GuidOrPath);

       end;

     EXPLORER_BAR:

       begin

         WriteString('CLSID', '{E0DD6CAB-2D10-11D2-8F1A-0000F87ABD16}');

         WriteString('BandCLSID', GuidOrPath);

       end;

     EXECUTABLE:

       begin

         WriteString('CLSID', '{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');

         WriteString('Exec', GuidOrPath);

       end;

     SCRIPT:

       begin

         writeString('CLSID', '{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}');

         WriteString('Script', GuidOrPath);

       end;

   end;

   CloseKey;

   OpenKey('\Software\IE5Tools\ToolBar Buttons\', True);

   WriteString(BtnText, ID);

   CloseKey;

finally

   Free;

end;

Result := ID;

end;

 

 

©Drkb::02388

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