Delphi: подшутим над пользователем (сделать форму окна невидимой, выдвинуть дверцу CD-ROM)
Предположим, скоро первое апреля и вы хотите немножко подшутить над пользователем. Нет ничего проще! Берем Delphi и пишем программку, которая через определенные промежутки времени выдает сообщение "Слышь...Дай диска пожевать" и выдвигает дверцу CD-ROM. Сначала положим на форму таймер, он у нас находиться на закладке System*:
Далее, присваиваем таймеру нормальное имя и устанавливаем интервал, в миллисекундах*:
Как видим, мы установили интервал срабатывания таймера 10 минут. Именно через этот промежуток времени наша программа будет "прикалываться" над юзером. Теперь пишем обработчик события OnTimer:
| procedure
TfrmJoke.tmJokeTimer(Sender: TObject); begin MessageBox(GetDesktopWindow,'Слышь...Дай диска пожевать', 'CD-ROM', MB_OK); mciSendString('Set cdaudio door open wait', nil, 0, handle); end; |
Теперь нам осталось сделать форму окна невидиомой. Для этого напишем вот такой обработчик события OnCreate главной формы программы:
| procedure
TfrmJoke.FormCreate(Sender: TObject); begin Application.Showmainform:=false; end; |
Все, компилируем прогу ставим ее в автозагрузку на компьютер жертвы вечером накануне первого апреля. Что бы юзер ничего не заметил, сделать это можно так:
- Запускаем команду regedit (это можно сделать через "Пуск" -> "Выполнить"**
При запуске команды у нас откроется окно правки реестра Windows**:
- Заходим в ветку HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run, добавляем туда нашу программу**:
- Прописываем путь к исполняемому файлу**:
Все, завтра юзер сядет за свое рабочее место, включит компьютер и через десять минут мы сможем наблюдать эффект шутки.
Скриншоты, помеченные знаком * , являются цитатами и иллюстрациями программного продукта "Delphi", авторское право на который принадлежит "Borland Software Corporation".
Скриншоты, помеченные знаком ** , являются цитатами и иллюстрациями программного продукта "Microsoft Windows", авторское право на который принадлежит "Microsoft".