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