Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.007 c
1-7955
Лана Розанова
2002-09-23 16:38
2002.10.03
Использование модулей


1-8027
123000
2002-09-21 16:34
2002.10.03
Как включить и выключить монитор?


3-7832
Старик
2002-09-12 14:57
2002.10.03
Запрос


14-8168
Freeze
2002-09-05 12:59
2002.10.03
Помогите, где взять инфу на тему Сервер клиент


1-7983
Vayner
2002-09-20 16:03
2002.10.03
Kylix2





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский