Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
Вниз
Как в WebBrowser1 при нажатии на html-ссылку выполнить программу? Найти похожие ветки
← →
brestmarket (2002-10-08 11:23) [0]а также в WebBrowser1 открыть определенный каталог в shell (проводник).
← →
brestmarket (2002-10-08 18:49) [1]Ребята, важный для меня вопрос. Please help!
← →
int64 (2002-10-09 00:02) [2]
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate("about:<a href="myprotocol:\\mylink">Жми сюда</a>");
end;
procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if url="myprotocol:\\mylink" then
begin
Cancel:= True;
WinExec("Calc", 0);
WebBrowser1.Navigate("C:\Program Files");
end;
end;
← →
brestmarket (2002-10-09 02:10) [3]Спасибо. Очень помогли. Интересовал также вопрос, как открыть любую папку не в WebBrowser, а в shell, т.е. в Проводнике.
← →
int64 (2002-10-09 03:19) [4]Например:
ShellExecute(handle, "", "", "C:\Program Files","", sw_normal);
или проводник:
ShellExecute(handle, "", "explorer", "C:\Program Files","", sw_normal);
← →
brestmarket (2002-10-09 13:25) [5]Большое спасибо, int64.
Позвольте последний вопрос:
Где прочитать про варианты для записи вместо myprotocol - в help delphi - ничего про это не сказано, кроме вариантов about, res, https. Мне необходимо ссылку с локального диска сравнить с url - ничего не получается, в чем-же причина?
← →
brestmarket (2002-10-09 13:28) [6]Ссылка в html-файле такая:
c:\folder\subfolder\file.exe
Как записать ее для сравнения с url ?
p.s. Королевство Дельфи имеет 1 неработающий ответ на этот вопрос ;(!
← →
int64 (2002-10-09 17:27) [7]myprotocol это просто набор символов. Его можно вообще не писать.
Иногда удобно оформлять ссылки в виде:
href="Procedure1:\\Value", а потом в программе анализировать.
И тогда с браузера запускаются любые процедуры с параметрами.
Или как в твоём примере:
href="ShellExecute:\\c:\folder\subfolder\file.exe"
или
href="ShellExecute:\\c:\folder\subfolder\"
Когда сравниваешь стринги, надо следить за регистром. Это всетаки не идентификаторы. Диски обозначаются заглавными буквами.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
Память: 0.56 MB
Время: 0.037 c
