Windows - saber os links que voce visitou (historico do explorer)

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

// histórico do Windows Exploder

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

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

      finally

        S.Free;

      end;

      Reg.CloseKey;

    end;

  finally

    Reg.Free;

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  ShowTypedUrls(ListBox1.Items);

end;