TWebbrowser toolbar kontrolü

[trolojik]

Merhaba merak ettiğim 2 şey var

Internet explorere yüklenilebilen Google toolbar aynı zamanda TWebbrowser componentinde kullanabiliyormuyuz ?
-
2. sorum ise eğer görüntüleyemiyorsak Internet exploreri hide olarak çalıştırabilmemiz mümkünmü yani arkaplandan ?

İyi çalışmalar , Kolay gelsin

[mrmarman]

1. Sorunun cevabı tam uygulamalı kod olarak
http://www.crystalline.ch/downloads/Goo ... ndhost.zip

Bir kaç not:
Google Toolbar vb. yüklü olup olmadığını kontrol ettirmen lazım..Aşağıdaki kurgu işini görecektir...

Kod: Tümünü seç

var GUID: TGUID;
      bi: TDeskBandInfo;
     wnd: HWND;
begin
  Try
    GUID := StringToGUID('{2318C2B1-4965-11d4-9B18-009027A5CD4F}'); //google
    obj := CreateComObject(guid);
    (obj as IObjectWithSite).SetSite(BandHostIntf);
    (obj as IDeskband).GetWindow(wnd);
    MoveWindow(wnd, 0, 0, ControlBar1.Width, ControlBar1.Height, TRUE);
  except
    on e: exception do begin
      If e.Message = 'Sınıf kaydedilmemiş, ClassID: {2318C2B1-4965-11D4-9B18-009027A5CD4F}'
        then MessageDlg('Google Toolbar Kurulu Değil...', mtError, [mbok], 0)
        else MessageDlg('Şu Hata Oluştu : '#13#13 + e.Message, mtError, [mbok], 0)
    end;
  End;
end;

deyip sonra da bunu açmaya çalışan bir kod bu örnekteki.


2. Sorun ise formunun üzerinde bir panelin arkasına saklarsan mümkün. Visible özelliğini kapatırsan olmuyor malesef...

[trolojik]

2. sorunuzun cevabı TWebbrowser özelliği için, 2. sorumda bahsettiğim Internet exploreri kullanıcı görmeden çalıştırabilirmiyiz hide haliyle

1. sorunuzun cevabı için teşekkür ederim
Pekiyi diğer toolbarları kullanmak istersem , Farzı misal ben bir toolbar yaptım onu webbrowserimde kullanmak istiyorum veya yahoo toolbar veya herhangi bir x toolbar bunları kullanmak istersem ?

Yalnış anlamadıysam Classid kısmını kullanmak istediğim toolbarın id sine göre değişmem gerekiyor

[mrmarman]

2. sorunuzu cevaplamıştım. Hide halde değil onun yerine bir panel arkasında gizleyerek kullanabilirsiniz. Önünde 100x100 panel var iken arkada 100x100 WebBrowser şeklinde anlatabildim mi ?

Diğer soru ise, evet haklısın her CLSID için toolbara atama yapacaksınız. Bunları daha önceden bilmeniz gerekiyor.

- Toolbar CLSID kodları tekil olarak tanımlıdır. Yani değişmezler. Bunların bir listesinin bulunduğu siteyi referans vereyim inceleyip hangi toolbar(lar)a destek vereceksen kodunu programındaki sabitlere ekle. Bkz. http://sysinfo.org/bholist.php

[trolojik]

Referans süper çok teşekkür ederim

2. Soruya gelince yeniden yalnış anladınız

TWebbrowseri gizlemekten bahsetmiyorum. Windows işletim sistemi ile birlikte gelen Internet exploreri arkaplandan açmaktan bahsediyorum
Bu mümkünmü acaba

[mrmarman]

Aha.. şimdi anladım. Evet bu mümkün ancak virüs programlarıyla başın derde girecektir.

- Visible özelliği True olmayan pencerelere değer göndermek şüpheyle karşılaşılmasına sebebiyet verir. Örneğin Kaspersky hemen hemen uyarıveriyor. Kullanıcıların virüs sanabilir.
Uses'a SHDocVw eklemeyi unutma

Kod: Tümünü seç

var
  IE                : InternetExplorer; // Uses SHDocVw
  Flags,
  TargetFrameName,
  PostData, Headers : Olevariant;
begin
  IE              := CoInternetExplorer.Create;
  Flags           := 0;
  TargetFrameName := 0;
  Postdata        := 0;
  Headers         := 0;
  IE.Navigate('http://www.google.com.tr', Flags, TargetFrameName, PostData, Headers );
  //IE.FullScreen := True;
  //IE.Visible    := True;
  Sleep(10000);
  IE.Quit;
end;

Explorer gizli olarak navigate edilmiş olarak 10 saniye kalır sonra imha edilir

[trolojik]

ilginize ve yardımlarınıza teşekkür ederim

Kolay gelsin

[trolojik]

Avast , Nod32 , Kaspersky sürümlerinde sadece bu kodu denettim Herhangi bir uyarı vermeden sorunsuz çalıştı. Bilginize..

[heavy]

http://www.crystalline.ch/downloads/Goo ... ndhost.zip dosyası yok. bana gönderebilmeniz veya hotfile a upload edebilmeniz mümkünmü?

bende webbrowser da yahoo toolbarını göstermek istiyorum.