creating  Explorer ToolBar Button

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;