Dicas - Descobrindo URL's visitadas

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Saiba todos os endereços da internet que você visitou.

Descobrindo URL'S visitadas

 

Saiba todos os endereços da internet que você visitou:

 

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;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?