Delphide Internet Explorer Toolbar Yapılırmı?

[onur301]

S.A
arkadaşlar internet explorer veya mozilla için toolbar yapmak istiyorum. delphide bu mümkünmü?
Teşekkürler.

[vedatkaba]

toolbar dan tam emin değilim ama buton filan ekleme olayları vardı galiba yanlış hatırlamıyorsam.

[DraGonS]

bu çok önemli bişey banada lazım ama basic de yazanlar gödüm. Delphi basic ten kötü bir dilmiş. Bundada yazılmalı bence

[sabanakman]

Bu iş için iexplorer için bazı kuralları olan Activex nesnesi yazılması gerekiyor ve Register ayarları yapılması gerekiyor. Bunun neler olduğunu araştırıp bulun veya bu işi yapan bir delphi bileşeni bulun ya da alın. Bunu Delphi ya da VB ile alakası yok. Sadece belki VB içinde bu işi yapan bir bileşen olabilir ama standart Delphi Bileşenleri içinde olmadığı kesin.

[fatihtolgaata]

Cevap basit: Evet yapılabilir.
Herhangi bir ToolBar yapma ile ilgili makale ve örnekleri inceleyin. Aynısını Delphi ile de yaparsınız. Çünkü ActiveX kullanılıyor. Kolay gelsin.

[HaokaH]

Delphi basic ten kötü bir dilmiş.

Pardon? Kim diyor kötü bir diLmi$ diye?

Diyen kesin Basic kuLLanIyordur, ya da birisi basic kuLLanan biriLerinden duyup sana söyLemi$tir.. Inanma..

YapILIr tabi, sInIr yok..

-> http://www.surfpack.com/downloads/Demo- ... 34230.html

[Trial_Cooder]

Eğer Button Eklemek İstersen Alttaki Kod İşini Görür

Kod: Tümünü seç

function IEButonukoy(Programpath: string;Simge: string;Simge1: string;Caption: string):boolean;
const
  KeyDegeri = '\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\';
var
  Reg: TRegistry;
  Dizin: string;
  Acilacak: string;
begin
  Reg := TRegistry.Create;
  try
    with Reg do
    begin
      RootKey := $80000002; //HKEY_LOCAL_MACHINE
      Programpath := 'Software\Microsoft\Internet Explorer\Extensions';
      Acilacak := Programpath;
      OpenKey(Acilacak, True);
      WriteString('ButtonText', Caption);
      WriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');
      WriteString('Default Visible', 'Yes');
      WriteString('Exec', Programpath);
      WriteString('HotIcon', simge1);
      WriteString('Icon', simge);
    end
  finally
    Reg.CloseKey;
    Reg.Free;
    result:=true;
  end;
end;

FormCreate :

Kod: Tümünü seç

 
var
 Path: String;
 Path2: String;
begin
 Path := Application.ExeName;
 Path2 := Application.Name;
 IEButonukoy(Path, Path2 + 'Icons\37.ico', Path2 + 'Icons\37.ico','DigitaLogger');IEButonukoy(Path, Path2 + '37.ico', Path2 + 'I37.ico','Trial_Cooder);

Iconları Programın Olduğu Klasörden Alır Veya "Icons\37.ico" Yazarsanız Icons Klasörnden Alır

Writed By Trial_Cooder