Internet - saber os enderecos de todos sites visitados

Top  Previous  Next

uses  Registry;

 

procedure ShowTypedUrls(Urls: TStrings); 

var  

    Reg: TRegistry; 

    S: TStringList; 

    i: Integer; 

begin     

    Reg := TRegistry.Create;

    try 

    Reg.RootKey := HKEY_CURRENT_USER

    if Reg.OpenKey('Software\Microsoft\Internet Explorer\TypedURLs', False) then 

    begin 

            S := TStringList.Create

            try 

            reg.GetValueNames(S); 

            for i := 0 to S.Count - 1 do 

            begin 

                    Urls.Add(reg.ReadString(S.Strings[i])); 

            end

            finally 

                  S.Free; 

            end

            Reg.CloseKey;     

    end

finally 

      Reg.Free; 

end

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

        ShowTypedUrls(ListBox1.Items);

end;

end.