Põe um TCheckListBox no form, coloca ele como ViewStyle = vsReport e
insere duas colunas.
No OnCreate do form coloca algo como abaixo:
Isso vai listar as urls visitadas e jogar no CheckListView. (Internet
Explorer);
Como pode ver vem do regedit, então basta criar um botão para apagar ou
inserir uma url.
procedure TForm1.FormCreate(Sender: TObject);
var
I, Tam: Integer;
C, V: string;
N: TStringList;
Lin: TListItem;
Col: TListColumn;
begin
Form1.Left := 50;
Form1.Top := 50;
Col := Lv.Columns.Add;
Col.Caption := 'Páginas visitadas';
Col.Width := 300;
Registro := TRegIniFile.Create('HKEY_CURRENT_USER');
Registro.OpenKey('\Software\Microsoft\Internet Explorer', False);
Page := Registro.ReadString('Main', 'Start Page', Page);
N := TStringList.Create;
Registro.ReadSection('TypedURLs', N);
Edit1.Text := Page;
for I := 0 to N.Count - 1 do
begin
C := N[I];
V := Registro.ReadString('TypedURLs', C, V);
Lin := LV.Items.Add;
Lin.Caption := V;
end;
if LV.Items.Count = 0 then
begin
Lin := LV.Items.Add;
Lin.Caption := V;
Lin.ImageIndex := 1;
end;
N.Free;
Registro.Free;
end;
Evaldo respondeu:
>
> Bom dia,
>
> Gostaria de saber se é possivel capturar o histórico da web do
> internet explorer e do firefox atraves do delphi, pesquisei na
> internet e não vi nenhuma referência sobre este assunto.
>
> Grato pela atenção.
>
> ---------------------------------
> Abra sua conta no Yahoo! Mail, o único sem limite de espaço para
> armazenamento!
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
> ------------------------------------------------------------------------
>
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.503 / Virus Database: 269.16.2/1143 - Release Date: 21/11/2007
> 10:01
>
--
Adriano Santos
-------------------------------------------------------------
Editor Técnico Revista ClubeDelphi
www.delphitodelphi.blogspot.com
www.devmedia.com.br
www.devmedia.com.br/clubedelphi/pagina.asp
