Inclua botões personalizados na barra de botões do Internet Explorer.

// uses  Registry, ActiveX, ComObj; Procedure CreateExplorerButton(ButtonText, MenuText, MenuStatusBar, Application: String); Var Reg : TRegistry;     G: TGUID;     UID: string; Begin    Reg := TRegistry.CReate;    Try       CoCreateGuid(G);       UID := GuidToString(G);       Reg.RootKey  :=  HKEY_LOCAL_MACHINE;       Reg.OpenKey('\\Software\\Microsoft\\Internet Explorer\\Extensions\\' + UID, True);       Reg.WriteString('ButtonText',ButtonText);       Reg.WriteString('MenuText',MenuText);       Reg.WriteString('MenuStatusBar',MenuStatusBar);       Reg.WriteString('CLSid','{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');       Reg.WriteString('Default Visible','Yes');       Reg.WriteString('Exec',Application);       Reg.WriteString('HotIcon',Application+',1');       Reg.WriteString('Icon',Application+',1');       Reg.CloseKey;       Reg.OpenKey('\\Software\\IE5Tools\\ToolBar Buttons\\', True);       Reg.WriteString(ButtonText,UID);       Reg.CloseKey;    Finally       Reg.Free;    End; End; Procedure RemoveExplorerButton(BtnText: string); var Reg: TRegistry;     UID: string; begin   Reg := TRegistry.Create;   Reg.RootKey := HKEY_LOCAL_MACHINE;   Reg.OpenKey('\\Software\\IE5Tools\\ToolBar Buttons\\', False);   UID := Reg.ReadString(BtnText);   if length(UID) = 38 then begin      Reg.DeleteValue(BtnText);      Reg.CloseKey;      Reg.DeleteKey('\\Software\\Microsoft\\Internet Explorer\\Extensions\\' + UID);   end;   Reg.free; end; Exemplo de uso: procedure TForm1.Button1Click(Sender: TObject); begin    CreateExplorerButton('Bloco de Notas','Abre o Bloco de Notas','Abre o Bloco de Notas','c:\\windows\\notepad.exe'); end; procedure TForm2.Button5Click(Sender: TObject); begin    RemoveExplorerButton('Bloco de Notas'); end; Obs: Se o usuário estiver usando uma barra personalizada de botões, será necessário habilitar a visualização do novo botão. Clique o botão direito na Toolbar, escolha personalizar e selecione o novo botão. Se quiser maiores informações sobre essa técnica, consulte em: http://msdn.microsoft.com/workshop/browser/ext/overview/overview.asp

Quebra-Linha

Colaborador..: Adenilton Rodrigues
Categoria(s).: Delphi;
Data.........: 07/07/2002 13:07:30
Visualizado..: 551 vezes
Fonte........: AdeN Knowledge DB