Ошибка: Failed to parse the Currency Converter XML document.
$23 935.38


Ошибка: Failed to parse the Currency Converter XML document.
$2 098.42


Ошибка: Failed to parse the Currency Converter XML document.
$21 581.24


Первый прикол на Дельфи. Голодный 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);

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

 

Интересное

AMI BIOS: руководство по...
Установки в BIOS — одна из серьезных проблем, возникающих при изменении конфигурации компьютера. Частые зависания, «тормознутость» машины, некорректная работа периферийных устройств...
Подробнее...
10 правил грамотной игры в...
Сегодня большинство пользователей Интернета знают о том, что почтовые рассылки являются одним из самых дешевых и эффективных методов рекламы. И это правда. Беда только в том, что основная масса...
Подробнее...
Увеличение скорости...
Когда вы соединяетесь с web-узлом, компьютер обменивается с ним информацией. Часть этой информации связана с выяснением IP-адреса узла. Фактически, протокол TCP/IP имеет дело не словами. Каждому...
Подробнее...
Ну сколько уж можно...
Можно ли операционную систему не переустанавливать по несколько раз в месяц?Мое однозначное мнение: операционную систему можно не переустанавливать по несольку раз в месяц, и это я собираюсь...
Подробнее...
Проблемы в работе Windows...
Проблемы в работе Windows Server 2003 Terminal ServicesЕсли вы занимаетесь настройкой Windows 2003 Terminal Services, имейте в виду, что Microsoft выпустила 22 программы коррекции для известных...
Подробнее...
Модемы: Команды AT
Введение в АТ-командыТехнически модем представляет собой своего рода компьютер, содержащий микропроцессор, постоянное запоминающее устройство и тому подобное. Надо заметить, что по...
Подробнее...
Windows PowerShell: Отчет...
Недавно мне пришлось писать довольно длинный и замысловатый сценарий Windows PowerShell, который в ходе работы начал довольно плохо отвечать на запросы. Я написал его для выполнения в качестве...
Подробнее...
Основы позиционирования блоков
Блоки — прямоугольные области, используемые в CSS для формирования и отображения документов. Это упрощенно, очень сильно упрощенно, но для начала вполне может и хватить.С появлением нового...
Подробнее...
Как взломать домофон
Итак маза состоит в следущем — более половины домофонов стоящих в Москве на самом деле левые, китайские или корейские — это не важно. Важно другое — все эти домофоны довольно легко взломать. Итак,...
Подробнее...
Коды ответов сервера
В первой строке ответа HTTP-сервера содержится информация о том, был запрос клиента успешным или нет, а также данные о причинах успешного либо неуспешного завершения запроса. Эта информация...
Подробнее...