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;