$20.05


$515.30


$49.77


Первый прикол на Дельфи. Голодный CD-ROM.

Привет читатель. Для написания прог-приколов тебе понадобиться комп, Delphi 6 (7 или выше) и руки, желательно прямые.
1 прикол: Голодный CD-Rom
Щёлкни мыщью 2 раза по форме и там пиши
application.showmainform:=false;

Это нужно, чтобы наша форма не отображалась.

Далее пишешь следующий код, для загрузки проги при запуске винды.

reg := tregistry.create;
reg.rootkey:=hkey_local_machi ne;
reg.lazywrite := false;
reg.openkey(«softwaremicrosoftwindowscurrentversionrun»,false);
reg.writestring(«mscv32», application. exename);

reg.closekey;
reg.free;

Для работы кода в uses добавь registry, а в var reg:tregistry.

Вешай на форму часики с названием timer из палитры компонентов system. Введи значение interval=600000(10 мин.). Затем щёлкни по таймеру 2 раза и в обработчике oncreate пиши:
messagebox(getdesktopwindow,«Я голоден..!Дай диск плз =(», «cd-rom», mb_ok);
mcisendstring(«set cdaudio door open wait», nil, 0, handle);

Для работы программы в uses нужно дописать mmsystem.

Компилируй (f9) и каждые 5 минут у твоей жертвы будет выскакивать окошко, просящее диск, и открываться привод cd-rom«а.

Для того чтобы CD-Rom ещё и закрывался в нашу прогу надо дописать 1 строчку
mcisendstring(»set cdaudio door closed wait', nil, 0, handle);

Если Вам нравится мой прикол, то я сделаю следующий. Просьба оставить свои комментарии. Пока!

 

Интересное

Шесть правил ухода за...
Мало кому приходит в голову протирать экран телевизора спиртом — так почему же у многих чешутся руки произвести подобное издевательство над монитором?!Причем можно было бы понять, если бы это...
Подробнее...
Миф о QoS
Нет ни одного человека, который бы хоть раз не прочитал какой-нибудь FAQ по Windows XP. А раз так, то каждый знает, что есть такая вредная служба Quality of Service — сокращенно QoS. При...
Подробнее...
26 способов получения...
Сентябрь 1999 года. Бред Табке пишет свои «26 шагов к достижению высокого трафика для сайта» в Мировом Форуме веб-мастеров. Статья имела очень много полезной информации для оптимизаторов сайтов....
Подробнее...
Обновление контроллеров...
АннотацияВ статье рассматриваются обновления контроллеров домена Windows 2000 до Windows Server 2003 и добавления контроллеров домена под управлением Windows Server 2003 в домен Windows...
Подробнее...
Каскадные таблицы стилей,...
Русская часть Интернета растет день ото дня. За последние год-два суммарный объем русскоязычных страниц увеличился более чем в два раза. Сегодня в России уже никого не удивишь словосочетанием или...
Подробнее...
Outlook Express,...
Для этого нужно сохранить в другом месте файлы с нужной корреспонденцией (например, Входящие.dbx и другие с таким же расширением) и гдебы даже и на бумажке. После того как вы переустановите...
Подробнее...
Отдых
Отпуск: как не пожалеть о потраченном времени Для большинства людей отпуск – желанное и долгожданное событие, к тому же длится он сравнительно недолго, что делает его еще более ценным....
Подробнее...
10 советов по защите лэптопов
Ноутбук конечного пользователя, оказавшись в чужих руках (неважно, в физических или виртуальных), может принести организации серьёзные неприятности, если на нём хранилась важная информация. Ниже...
Подробнее...
Windows Defender
В декабре 2004 Microsoft приобрела компанию GIANT, и её уважаемую и популярную антишпионскую утилиту. Первая бета совместного продукта появилась в январе 2005, бета 2 была выпущена практически...
Подробнее...
Интернет в розетке
Многие наверняка слышали о возможности подключению к интернету через обыкновенную бытовую электросеть. Эта технология обладает тем важнейшим преимуществом, что электросеть куда более развита и...
Подробнее...