Delphi: подшутим над пользователем (сделать форму окна невидимой, выдвинуть дверцу CD-ROM)

Предположим, скоро первое апреля и вы хотите немножко подшутить над пользователем. Нет ничего проще! Берем Delphi и пишем программку, которая через определенные промежутки времени выдает сообщение "Слышь...Дай диска пожевать" и выдвигает дверцу CD-ROM. Сначала положим на форму таймер, он у нас находиться на закладке System*:

Далее, присваиваем таймеру нормальное имя и устанавливаем интервал, в миллисекундах*:

Как видим, мы установили интервал срабатывания таймера 10 минут. Именно через этот промежуток времени наша программа будет "прикалываться" над юзером. Теперь пишем обработчик события OnTimer:

Теперь нам осталось сделать форму окна невидиомой.  Для этого напишем вот такой обработчик события OnCreate главной формы программы:

Все, компилируем прогу ставим ее в автозагрузку на компьютер жертвы вечером накануне первого апреля. Что бы юзер ничего не заметил, сделать это можно так:

• Запускаем команду regedit (это можно сделать через "Пуск" -> "Выполнить"**

При запуске команды у нас откроется окно правки реестра Windows**:

• Заходим в ветку HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run, добавляем туда нашу программу**:

• Прописываем путь к исполняемому файлу**:

Все, завтра юзер сядет за свое рабочее место, включит компьютер и через десять минут мы сможем наблюдать эффект шутки.

Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями  программного продукта "Delphi", авторское право на который принадлежит "Borland Software Corporation".

Скриншоты, помеченные знаком ** , являются цитатами и иллюстрациями  программного продукта "Microsoft Windows", авторское право на который принадлежит "Microsoft".