internet explorer ana sayfa

[penguen]

internet explorer ana sayfa degıstırmek ıstıyorum bunu delphi ile nasıl yapabılırım


Bu arada hoş geldim

[mkysoft]

sadece bunu öğrenmek için üye olmadın inşallah.

Registy'de tutulur ana sayfa orayı bulup değiştirmelisin. Nasıl bulacam dersen ana saffayı değiştir sonra regedit'e girip değiştirdiğin adresi ara. bir kaç yerde birden çıkabilir. Onları değiştir.

registy işlemleri için forumda arama yap.

[cagri_85]

Merhaba Öncelikle hoşgeldin Aşağıdaki Regedit Anahtarını kullanarak açılış Safyasını değiştirebilirsin.

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page

Bir örnek yaptım sanırım şöyle;

-----------------------------------------------------------------------------------
procedure RegYaz(Baslik:String; Deger : dWord);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Software\Microsoft\Internet Explorer\Main\Start Page', False);
Reg.WriteString('Main','Start Page');
Reg.CloseKey;
Reg.Free;
end;
-----------------------------------------------------------------------------------

[rsimsek]

Merhaba Öncelikle hoşgeldin Aşağıdaki Regedit Anahtarını kullanarak açılış Safyasını değiştirebilirsin.

HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page

Bir örnek yaptım sanırım şöyle;

-----------------------------------------------------------------------------------
procedure RegYaz(Baslik:String; Deger : dWord);
var
Reg : TRegistry;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Software\Microsoft\Internet Explorer\Main\Start Page', False);
Reg.WriteString('Main','Start Page');
Reg.CloseKey;
Reg.Free;
end;
-----------------------------------------------------------------------------------

Kodlarımızı [ code ] [ /code] tag ları içinde yazarsak daha şık duracak rsimsek

Kod: Tümünü seç

procedure RegYaz(Baslik:String; Deger : dWord);
var
  Reg    : TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_CURRENT_USER; 
  Reg.OpenKey('\Software\Microsoft\Internet Explorer\Main\Start Page', False);
  Reg.WriteString('Main','Start Page');
  Reg.CloseKey;
  Reg.Free;
end;

[penguen]

cok sagolun kod ısımı gordu. bu arada bu sıteyı yenı kesfetmedım ama sıte kaydı ıcın nısan ayını beklemek zorunda kaldım bır sey daha soracagım sorumun yerı degıl bılıyorum ama yenı baslık acmak ıstemedım
sorum sıteyı gezereken semınerler duzenlendıgımı ogrendım semıner programını nereden haberdar olacam

[aslangeri]

s.a.
aramıza hoşgeldin.
yeni bir etkinlik olacağı zaman sitede ilan ediliyor.
iyi çalışmalar.

[heskin35]

Kodu ben çalıştıramadım ama ben mi yanlış kullandım.
Başlık ve dword değerini ne olarak girmemiz lazım ?
Bugün kafam durdu sanırım.

Tamam dır

Kod: Tümünü seç

var
MyReg: tregistry;
begin
MyReg := tregistry.Create;
try
MyReg.RootKey := HKEY_CURRENT_USER;
MyReg.OpenKey('Software\Microsoft\Internet Explorer\Main',False);
MyReg.Writestring('Start Page','about:blank');
finally
MyReg.Free;
inherited;
end;
end;

Bu şekilde değiştirince çalıştı.