Açık olan internet sayfalarını bir timer ile kontrol ediyorum. Ve bunu aşağıdaki kod ile yapıyorum.
Kod: Tümünü seç
sw:=CoShellWindows.Create;
for i:=0 to sw.count-1 do
begin
ie:=sw.Item(i) as IWebbrowser2;
sure1);
if ie<>nil
then
edit2.Text:=(AnsiLowerCase(ie.LocationUrl));
sure(1);