Книга: Delphi. Учимся на примерах

Шутка №9 — открытие браузера Internet Explorer

Шутка №9 — открытие браузера Internet Explorer

В девятой шутке мы будем открывать несколько (от 5 до 15) окон браузера Internet Explorer с попыткой зайти на сайт www.heel.nm.ru.

Код этой шутки:

for i:=1 to Random(10)+ 5 do //случайное число от 5 до 15.
 ShellExecute(0, 'open', 'C:Program Fileslnternet Explorer' +
  'IEXPLORE.EXE', 'www.heel.nm.ru', 0, SW_MAXIMIZE);

Чтобы использовать функцию ShellExecute, необходимо добавить в раздел uses ссылку на модуль ShellApi.

Оглавление книги


Генерация: 1.091. Запросов К БД/Cache: 3 / 0
поделиться
Вверх Вниз