Gönderen Konu: Internet Explorer - Araç Çubuğuna Düğme Eklemek (Okunma sayısı 2318 defa)

CMNSOFT · « : 21 Ekim 2005 15:46:29 »

Kod: (Unknown Language)

procedure CreateExplorerButton(Path: string); 
const 
  Tagit = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\'; 
var 
  Reg: TRegistry; 
  Path1: string; 
  Merge: string; 
begin 
  Path := 'c:\your_program_path'; 
  Reg := TRegistry.Create; 
  try 
    with Reg do 
    begin 
      RootKey := HKEY_LOCAL_MACHINE; 
      Path1 := 'Software\Microsoft\Internet Explorer\Extensions'; 
      Merge := Path1 + Tagit; 
      OpenKey(Merge, True); 
      WriteString('ButtonText', 'ButtonText'); 
      WriteString('MenuText', 'Tools Menu Item'); 
      WriteString('MenuStatusBar', 'Run Script'); 
      WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}'); 
      WriteString('Default Visible', 'Yes'); 
      WriteString('Exec', Path + '\ProgramName.exe'); 
      WriteString('HotIcon', ',4'); 
      WriteString('Icon', ',4'); 
    end 
  finally 
    Reg.CloseKey; 
    Reg.Free; 
  end; 
end;

canavar123456789 · « **Yanıtla #1 :** 13 Kasım 2006 14:30:21 »

cmnsoft teşekkürler. paylaşımın güzel.
hani bu google , msn, kolay bar gibi araç çubuklarını nasıl ekleyebiliyoruz.bir bilgin var mı.varsa paylaşır mısın

Delphi Dünyası Facebook'ta

Duyurular

Kodbank İndir

Gönderen Konu: Internet Explorer - Araç Çubuğuna Düğme Eklemek (Okunma sayısı 2318 defa)

CMNSOFT

Internet Explorer - Araç Çubuğuna Düğme Eklemek

canavar123456789

Ynt: Internet Explorer - Araç Çubuğuna Düğme Eklemek