Книги автора: Delphi. Учимся на примерах
Книга: 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 — ограничение диапазона движения мыши
- Шутка №2 — отключение кнопок мыши
- Шутка №3 — отключение клавиатуры
- Шутка №4 — очистка буфера обмена
- Шутка №5 — назначение фона для Рабочего стола
- Шутка №6 — выбор фона случайным образом
- Шутка №7 — выключение монитора
- Шутка №8 — сообщение об ошибке, содержащее "мусор"
- Шутка №9 — открытие браузера Internet Explorer
- Шутка №10 — сброс системной даты/времени
Похожие страницы
- Шутка №7 — выключение монитора
- Шутка №1 — ограничение диапазона движения мыши
- Шутка №6 — выбор фона случайным образом
- Шутка №10 — сброс системной даты
- Шутка №3 — отключение клавиатуры
- Шутка №2 — отключение кнопок мыши
- Шутка №4 — очистка буфера обмена
- 5.12.2 Открытие поименованного канала
- Internet Service Providers who use assigned IP addresses
- Запуск Access. Открытие учебной базы данных Борей
- Создание и открытие файла
- Часть первая Открытие