internet explorer ana sayfa kontrolu

[reyhan]

internet explorer için anasayfa 'about:blank' haricinde degiştirilirse bunu nasıl anlayabilirim
aşağıdaki fonksiyonlarla anasayfayı degiştirebiliyor ve okuyabiliyorum.

Kod: Tümünü seç

Uses

Registry;

function GetIEStartPage: string;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('Software\Microsoft\Internet Explorer\Main', False);
    try
      Result := Reg.ReadString('Start Page');
    except
      Result := '';
    end;
    Reg.CloseKey;
  finally
    Reg.Free;
  end;
end;

function SetIEStartPage(APage: string): Boolean;
var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    Reg.OpenKey('Software\Microsoft\Internet Explorer\Main', False);
    try
      Reg.WriteString('Start Page', APage);
      Result := True;
    finally
      Reg.CloseKey;
      Result := False;
    end;
  finally
    Reg.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(GetIEStartPage); {Get Homepage}
  SetIEStartPage('about:blank'); {Set Homepage}
end;

[G.Arkas]

Registry değişikliklerini nasıl algılayabileceğinizi burada anlatıyor.

http://delphi.about.com/od/kbwinshell/l/aa052003a.htm

[Lord_Ares]

Eğer registry ile uğraşmak istemiyorsan ,fikir olarak şunuda denemek işini görebilir tabiki kullanım amacına bağlı olarak değişir. (eğer yanlış anlamadıysam tabiki ) Sayfa açıldığı anda navigate edilen sayfanın içeriği gelmeye başladığına göre , açılan sayfanın içerinde belli bir sabit kelimeyi aratarak açılan sayfanın about olup olmadığını veya başka bir sayfa olduğunu anlayabiliriz. Eğer kendi webbrowseriniz ile yapıyorsanız Location Url kısmından yönlenen sayfa adresini alıp anlayabiliriz.