Delphide Anasayfa

13/Haz/07 14:37

Kısayol

Şikayet

Özel Mesaj

exploit

Kayıt Tarihi: 28/Ağustos/2005

Delphide internet explorer gibi bir kontrol paneli yapmak istiyorum..Kullanıcı oradan anasayfasını seçebilsin vs..

Alıntı yap

13/Haz/07 14:40

Kısayol

Şikayet

Özel Mesaj

tuncaxxz

Kayıt Tarihi: 23/Ağustos/2005

form ekle bitane onu showmodal la çağır işte zart zurt

explorer olduğu form un on create olayına

webbrowser1.navigate("'http://'+form2.edit1.text")

gibi yaparsan olur

punto cero

Alıntı yap

13/Haz/07 14:44

Kısayol

Şikayet

Özel Mesaj

exploit

Kayıt Tarihi: 28/Ağustos/2005

yani ? :D:D

Alıntı yap

13/Haz/07 15:06

Kısayol

Şikayet

Özel Mesaj

SSH

Kayıt Tarihi: 21/Temmuz/2005

anladığım kadarı ile basit bir web browser yapcan

gerekli malzemeler

- 1 adet web browser
- keyfe göre 3-4 kaşık pardon buton :)

bunlar yeterli

misal dur butonu yapcaksın diyelim
butonun click olayına
webbrowser1.stop
yada yenile için bi buton yaptın diyelim
webbrowser1.refresh

diye gider...

edit ansayfa olayını anlatmayı unutmuşum :D

webbrowser1.gohome; :)

sırıtma la.

Alıntı yap

13/Haz/07 15:18

Kısayol

Şikayet

Özel Mesaj

exploit

Kayıt Tarihi: 28/Ağustos/2005

aga sadece anasayfa olayını nsaıl yapcam diyoprum yani bi control paneli olucak adam oradan anasayfasını seçicek..

Alıntı yap

13/Haz/07 16:03

Kısayol

Şikayet

Özel Mesaj

tuncaxxz

Kayıt Tarihi: 23/Ağustos/2005

hacı anasyfa gibi bi değişken atıcan. anasayfa:=form2.edit1.text die sonra formun on create olayına webbrowser1.navigate("'http://'+anasayfa") gbi bişiydi (:

mesela butona koydun control panelini form2 olsun bu panel

button1 in on click şeyine

form2.showmodal yaparsan form2 kapanmadan form1 e geçiş yapamazsın (: yani yapmasanda olur

form2 deki değeri çağırarak yapıcaksın

punto cero

Alıntı yap

13/Haz/07 16:24

Kısayol

Şikayet

Özel Mesaj

SSH

Kayıt Tarihi: 21/Temmuz/2005

anlatayım o olayı şimdi delphi webbrowser olayında internet explorerı kullandığı için
internet explorer giriş sayfası neyse gohome dediğinde oraya gidecektir
internet explorer giriş sayfasını değiştirmek için register girer devreye :)

yapman gereken delphiden internet explorerın start page anahtarını değiştirmek .. onuda anlatayım tam olsun

işin içine register girince öncelikle formunun
uses kısmına Registry ekle

daha sonra var bloğuna Tregistery türünden bir değişken tanımlayalım ben web1 dedim

var
Form1: TForm1;
Web1:TRegistry;

şimdi 2 buton 1 webbrowser 1 tanede edit koyalım

butonlardan biri anasayfa olacak diğeri ise edit1 den girilen değeri start page yani anasayfa değeri ile değiştircek

değiştirme olayını yapıyoruz butonlardan birine geliyosun

Web1:=TRegistry.Create;

uygulama için bir registery objesi oluşturuyoruz ...

registery da 6 ana anahtar bulunur internet explorer start page olayının olduğu anahtarı açıyoruz
Web1.RootKey:=HKEY_CURRENT_USER;

şimdi işlem yapacağımız anahtarı açıyoruz
Web1.OpenKey('Software\Microsoft\Internet Explorer\Main',True);
ve son olarak
Web1.WriteString('Start Page',edit1.text);
anahtarımıızın değerini değiştiriyoruz
detaylı satır satır anlattım kafan karışmasın

procedure TForm1.Button1Click(Sender: TObject);
begin
Web1:=TRegistry.Create;
Web1.RootKey:=HKEY_CURRENT_USER;
Web1.OpenKey('Software\Microsoft\Internet Explorer\Main',True);
Web1.WriteString('Start Page',edit1.text);
end;

şu şekilde olcak :) farklı farklı yerlere yazma ve programı çalıştır :)

sırıtma la.

Alıntı yap

13/Haz/07 16:59

Kısayol

Şikayet

Özel Mesaj

wert

Kayıt Tarihi: 19/Eylül/2005

öncekini boşver(3mr3 verdiği değil)

editlendi

gene bunu yap iki form

1. forma buton ve webbrowser koy

on craete olayınıa (form1)

var

deger:TRegistry;

sonuc:AnsiString;

altklasor:AnsiString;

begin

deger:=TRegistry.Create;

deger.RootKey:=HKEY_CURRENT_USER;//Bu ana Rootla ilgileniyorum

altklasor:='Software\exploit\';

deger.OpenKey(altklasor,false);

deger.readString('ana sayfa');

sonuc:=deger.ReadString('ana sayfa');

deger.CloseKey;

if sonuc='' then webbrowser1.navigate('about:blank') else webbrowser1.navigate(sonuc);

bunu koy

butona bunu koy

form2.show

------------------------------------------------------------------------------------------

form 2

buton ve edit kot

butona bunu koy

var

deger:TRegistry;

altklasor:AnsiString;

begin

deger:=TRegistry.Create;

deger.RootKey:=HKEY_CURRENT_USER;//Bu ana Rootla ilgileniyorum

altklasor:='Software\exploit\';

deger.OpenKey(altklasor,true);

deger.WriteString('ana sayfa',edit1.Text);

deger.CloseKey;

end;

------------------

ve ikisindede uses kısmına Registry koymayı unutma

|sadece aptalların başarısı ders notu ile ölçülür|

Alıntı yap