Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Запуск из .html, программы

Автор: ShadowDancer 2.5.2006, 08:44

Купил диск с прогами, ну там как обычно красивая автозагрузка организована.
Про автозагрузку. Запускается программа, в неё грузиться .html страничка и при нажатии на ссылку с прогой (прога на диске), эта прога автоматом запускается. При использовании только .html странички, при переходе по ссылке нужно подтверждать: действительно ли ты хочешь запустить софтину или нет, ну и тд.. Как в своей программе сделать чтобы без вопросов всё запускалось ?

Автор: Guedda 2.5.2006, 09:19

Все надо делать правильно. Используй TWebBrowser. А если ты хочешь запускать программу методом html (а лучше JavaScript), тогда тебе http://forum.vingrad.ru/index.php?showforum=64

Автор: Snowy 2.5.2006, 09:38

У TWebBrowser событие OnBeforeNavigate скажет тебе, что за ссылка была нажата.
Если это файл, то запускай его вручную и отменяй загрузку в браузере.
Если страница, то пропускай как есть.

Автор: ShadowDancer 2.5.2006, 19:29

Snowy, не совсем понял тебя, поясни.

Автор: Snowy 2.5.2006, 19:46

Что тут непонятного.
Пишешь обработчик OnBeforeNavigate у TWebBrowser'a.

Код


procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
  inherited;
  if copy(URL, Length(URL)-2, 3) <> 'exe' then Exit;
  ShowMessage(URL); // вместо этого делай запуск через WinExec и т.п.
  Cancel := true;
end;

Автор: ShadowDancer 2.5.2006, 19:53

Snowy, сэнк, дошло