İnternet Explorerı yeni pencerede açmak

Delphi'de kod yazma ile ilgili sorularınızı bu foruma yazabilirsiniz.
Cevapla
Kullanıcı avatarı
nosedive
Üye
Mesajlar: 238
Kayıt: 16 May 2004 07:48

İnternet Explorerı yeni pencerede açmak

Mesaj gönderen nosedive »

Sheelexecute ile bir web sayfasını açıyoruz...Ancak bunu yeni bir browser penceresi ile açmayı nasıl yapabiliriz ? Mevcut açık pencereler den açıyor...Tıkladığında benim güncelleme sayfamı ayrı bi browserde açtırmam lazım...

Teşekkürler
Kullanıcı avatarı
nosedive
Üye
Mesajlar: 238
Kayıt: 16 May 2004 07:48

Mesaj gönderen nosedive »

Kod: Tümünü seç


ShellExecute(Handle,
                   'open',
                   'http://www.geocities.com/siliconvalley/campus/4958/',
                    nil,
                    nil,
                    sw_ShowMaximized);

API si ile yeni sayfa açılıyor...Ancak burda sayfanın yeni pencerede açılmasını sağlama istiyorum. Tabi boyle bi parametresi varmı ? bilen varmı..

Teşk.
ikut

Mesaj gönderen ikut »

nosedive yazdı:

Kod: Tümünü seç


ShellExecute(Handle,
                   'open',
                   'http://www.geocities.com/siliconvalley/campus/4958/',
                    nil,
                    nil,
                    sw_ShowMaximized);

API si ile yeni sayfa açılıyor...Ancak burda sayfanın yeni pencerede açılmasını sağlama istiyorum. Tabi boyle bi parametresi varmı ? bilen varmı..

Teşk.
http://www.abc.com/aa.html "target=blank" dersen yeni pencerede açar

target =blank diye arat webde yığınla örnek var
Kullanıcı avatarı
nosedive
Üye
Mesajlar: 238
Kayıt: 16 May 2004 07:48

hallettim

Mesaj gönderen nosedive »

SuiURLLabel kullanıyordum...

SuiURLLabel ' in click olayında direk olarak URL özelliğini ShellExecute ile açıyordu. Bende click olayına aşağıdaki gibi winexec ile bir tane iexplorer açtırdım. hemen arkasından da URL yi açıyor..Boylece konuyu hallettim.

Kod: Tümünü seç

     winexec(PChar('C:\Program Files\Internet Explorer\IEXPLORE.EXE'),SW_MAXIMIZE);
     if Trim(m_URL) <> '' then
        ShellExecute(0, 'open', PChar(m_URL), nil, nil, SW_SHOWDEFAULT);

    inherited;
Teşekkürler
Cevapla