Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Уважаемые! Как вытащить те ссылки, что внутри IExplorera?

Костя Кубарев © (2002-09-24 02:06:00)
Т.е известно, что все ссылки, что мы вводим, по которым переходили с сайта на сайт, и.т.д IE как правило нежно хранит. Так как же их вытащить и засунуть, к примеру, в листбох? Заранее благодарен и желателен исходник.

The (2002-09-24 13:51:00) [1]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, ComCtrls;

Const
const
SHACF_DEFAULT = $00000000; // Currently (SHACF_FILESYSTEM | SHACF_URLALL)
SHACF_FILESYSTEM = $00000001; // This includes the File System as well as the rest of the shell (Desktop\My Computer\Control Panel\)
SHACF_URLHISTORY = $00000002; // URLs in the User"s History
SHACF_URLMRU = $00000004; // URLs in the User"s Recently Used list.
SHACF_URLALL = (SHACF_URLHISTORY + SHACF_URLMRU);
SHACF_AUTOSUGGEST_FORCE_ON = $10000000; // Ignore the registry default and force the feature on.
SHACF_AUTOSUGGEST_FORCE_OFF = $20000000; // Ignore the registry default and force the feature off.
SHACF_AUTOAPPEND_FORCE_ON = $40000000; // Ignore the registry default and force the feature on. (Also know as AutoComplete)
SHACF_AUTOAPPEND_FORCE_OFF = $80000000; // Ignore the registry default and force the feature off. (Also know as AutoComplete)

type
TForm1 = class(TForm)
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

function SHAutoComplete(hwndEdit: HWND; dwFlags: DWORD): HRESULT; stdcall; external "shlwapi.dll";
function OleInitialize(pwReserved: Pointer): HResult; stdcall; external "ole32.dll";
procedure OleUninitialize; stdcall; external "ole32.dll";

procedure TForm1.Button1Click(Sender: TObject);
begin
SHAutoComplete(Edit1.Handle, 5);
end;

initialization

Oleinitialize(nil);

finalization
OleUninitialize;

end.

Костя Кубарев (2002-09-24 13:32:00) [2]
Нет! Я говорил про те ссылки, что внутри Ie. Вот вы например вводите в строку адрес слог "de" и IE показывает все ссылки, в которых есть "de" и эти самые ссылки он берет из своей этакой базы данных, где в свою очередь осуществляет поиск слога "de". Вот мне и нужны все ссылки, которые IE в себе содержит!!! Все ссылки, которые когда либо были были использованы (загружены) пользователем в IE. Объяснил как смог!

Esu (2002-09-24 08:57:00) [3]

> вытащить и засунуть, к примеру, в листбох

Ты ведь можешь получить HTMLкод.
Из него и выдираешь <A HREF=""></A> вот то что в " записываешь в свой ListBox.

Semion (2002-09-24 08:19:00) [4]
Ему наверное нужно чтобы это делалось интерактивно

Бегинер (2002-09-24 03:09:00) [5]
Знаешь такие папки как: Temporary Internet Files или Cookies?
Поошарся в них там что-то должно быть....еслинайдешь файл, то не сложно будет из него определенные строки вставить прогу......наверное :-)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »