Программирование - это просто
Advertisement
Главная arrow Уроки программирования arrow Delphi: Маленькие хитрости arrow Delphi: подшутим над пользователем (сделать форму окна невидимой, выдвинуть дверцу CD-ROM)
26.10.2021 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Delphi: подшутим над пользователем (сделать форму окна невидимой, выдвинуть дверцу CD-ROM) Печать E-mail
Автор megabax   
09.04.2010 г.
New Page 1

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

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

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

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

Delphi: подшутим над пользователем

Как видим, мы установили интервал срабатывания таймера 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 (это можно сделать через "Пуск" -> "Выполнить"**

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

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

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

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

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

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

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

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

 


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

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


 

 

 

Последнее обновление ( 16.11.2011 г. )
 
« След.   Пред. »
 
© 2021 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги