Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];
ВнизУважаемые! Как вытащить те ссылки, что внутри IExplorera? Найти похожие ветки
← →
Костя Кубарев (2002-09-24 02:06) [0]Т.е известно, что все ссылки, что мы вводим, по которым переходили с сайта на сайт, и.т.д IE как правило нежно хранит. Так как же их вытащить и засунуть, к примеру, в листбох? Заранее благодарен и желателен исходник.
← →
Бегинер (2002-09-24 03:09) [1]Знаешь такие папки как: Temporary Internet Files или Cookies?
Поошарся в них там что-то должно быть....еслинайдешь файл, то не сложно будет из него определенные строки вставить прогу......наверное :-)
← →
Semion (2002-09-24 08:19) [2]Ему наверное нужно чтобы это делалось интерактивно
← →
Esu (2002-09-24 08:57) [3]
> вытащить и засунуть, к примеру, в листбох
Ты ведь можешь получить HTMLкод.
Из него и выдираешь <A HREF=""></A> вот то что в " записываешь в свой ListBox.
← →
Костя Кубарев (2002-09-24 13:32) [4]Нет! Я говорил про те ссылки, что внутри Ie. Вот вы например вводите в строку адрес слог "de" и IE показывает все ссылки, в которых есть "de" и эти самые ссылки он берет из своей этакой базы данных, где в свою очередь осуществляет поиск слога "de". Вот мне и нужны все ссылки, которые IE в себе содержит!!! Все ссылки, которые когда либо были были использованы (загружены) пользователем в IE. Объяснил как смог!
← →
The (2002-09-24 13:51) [5]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.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.03;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c