Obtener Historial de Navegacion

[ecfisa]

Hola RolyH7 y bienvenido a Club Delphi

Para Internet Explorer:

Código Delphi [-]
uses
  ComObj;

procedure GetIEHistoryList(TS: TStrings);
const
  ITEM_NAME = 0;
  ITEM_DATE = 2;
  HISTORY_LIST = 34;
var
  URL: string;
  Visitada: string;
  i,j,k: Integer;
  Shell, Item, ItFolder, ItSite,
  PgFolder, PgItem, Folder: OleVariant;
begin
  Shell:= CreateOleObject('Shell.Application');
  Folder:= Shell.NameSpace(HISTORY_LIST);
  TS.Clear;
  TS.Add('Ubicación: ' + Folder.Self.Path);
  for i:= 0 to Folder.Items.Count - 1 do
  begin
    Item:= Folder.Items.Item(i);
    TS.Add('Período: ' + Item.Name);
    if Item.IsFolder then
    begin
      ItFolder:= Item.GetFolder;
      for j:= 0 to ItFolder.Items.Count - 1 do
      begin
        ItSite:= ItFolder.Items.Item(J);
        TS.Add('Sitio: ' + ItSite.Name);
        if ItSite.IsFolder then
        begin
          PgFolder:= ItSite.GetFolder;
          for k:= 0 to PgFolder.Items.Count - 1 do
          begin
            PgItem:= PgFolder.Items.Item(k);
            URL:= PgFolder.GetDetailsOf(PgItem, ITEM_NAME);
            Visitada:= PgFolder.GetDetailsOf(PgItem, ITEM_DATE);
            TS.Add('URL: ' + URL );
            TS.Add('Visitada: ' + Visitada);
          end
        end;
        TS.Add('----------------------------------------------------')
      end
    end
  end
end;

Llamada ejemplo:

Código Delphi [-]
    GetIEHistoryList(Memo1.Lines)

Saludos.