Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Twebbrowser и линки на exe [D6, WinXP]


sm_dmitry ©   (2002-06-10 22:00:00) 

У меня тут трабл. В проге есть окно TWebBrowser"а, и html страница, которую он показывает. На странице есть ссылки на exe
файлы на ЛОКАЛЬНОМ компе. При нажатии на ссылку открывается диалог. окно - типа сохранить? и там есть пимпа download и open (открыть), када её нажимаешь, то исполняется файл. Внимание вопрос :) Как сделать так чтобы сразу запускалась прога, по нажатию на ссылку? (правда может это не к кодерам...)
Ух... че-то как-то сложновато написал :)


int64   (2002-06-11 01:57:00) [1]

Обрабатывай BeforeNavigate:

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if url="C:\temp\1.exe" then
begin
Cancel:= True;
WinExec("c:\temp\1.exe",SW_SHOW);
end;
end;


Внимание: Url, как стринг в условии чуствителен к регистру.

ЗЫ. А если хочешь просто от диалога в IE избавиться, чтоб червяка сделать - сразу забудь.


Наверх

Титульная страница Поиск, карта сайта Написать письмо