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


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


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


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

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

 

Интересное

10 советов по обеспечению...
Используйте Windows Server 2003 Версия Windows Server 2003 с поддержкой службы каталогов «Активная директория» (Active Directory, далее AD) гораздо безопаснее версии Windows 2000. Это не значит,...
Подробнее...
Основные конструкции языка...
В этой статье я расскажу о языковых конструкциях языка веб программирования php.Изучив их, Вы уже сможете писать простенькие программы.Особенностью конструкций этого языка является простота. if-...
Подробнее...
Несколько советов по...
Для ускорения навигации по папкамДля ускорения навигации по папкам, содержащим графические файлы можно отметить пункт — «Не кэшировать эскизы» (Панель управления -> Свойства папки -> Вид), а...
Подробнее...
Шесть правил ухода за...
Мало кому приходит в голову протирать экран телевизора спиртом — так почему же у многих чешутся руки произвести подобное издевательство над монитором?!Причем можно было бы понять, если бы это...
Подробнее...
АнтиОМОН v.1.0
Представь такую ситуацию, ты сидишь перед телеком, смотришь Санта Барбару и тут раздаётся звонок. Ты открываешь дверь и в квартиру входят несколько амбалов, представившись сотрудниками ФСБ =)Они...
Подробнее...
Выделенный сервер
Вас интересует вопрос, что такое выделенный сервер(Dedicated Server) и для чего он нужен.Этот хостинг, который предоставляет клиенту в полное пользование отдельным выделенным сервером. Есть...
Подробнее...
Система X Window
Система X Window представляет собой графическую оболочку для операционных систем семейства Unix.Топологически X Window состоит из двух частей: это Х-сервер и Х-клиент.Х-сервер — это программа...
Подробнее...
Поисковый маркетинг губит...
Что такое «маркетинг веб-сайта»? В 99% случаев первое, что приходит на ум — это SEM, то есть поисковый маркетинг, во многом из-за сходства терминов. Однако подобная логика часто приводит к...
Подробнее...
Я живу в FreeBSD
Нередко приходится слышать рассуждения типа: «FreeBSD — прекрасная серверная платформа, но ей не место на рабочем компьютере. Повседневные задачи среднему пользователю проще выполнять на...
Подробнее...
Криптография: палка о двух...
Криптография в наши дни повсюду. Большинство пользователей каждый день извлекают из неё пользу, даже если делают это не осознанно. В этой статье мы рассмотрим, почему криптография является «палкой...
Подробнее...