Запуск приложения из TWebBrowser
От: elijah eltronix.narod.ru
Дата: 07.11.12 11:43
Оценка:
Не получается открыть ссылку в новом окне браузера, если до этого было запущено из него приложение. Например:

procedure TForm1.WebBrowser1BeforeNavigate2;
var s:String;
begin
s:=LowerCase(RightStr(URL,4));
if (s<>'.htm')and(s<>'html') then begin
Cancel:=true;
ShellExecute(Application.Handle,'open',PChar(URL),nil,nil,SW_NORMAL);
end;
end;
Omnia mea mecum porto.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.