Информация сайта компьютерной безопасности
<<< Hack Style >>>

наверно все видели или слышали такой прикол
когда твой сидюк открывается - закрывается без перерыва
да еще просит типо дай ему че нить покушать а то сломается
да уже многие этого не помнят а пора напомнить ...

дк вот работаем с нашим CD-ROM мом

так в uses дописываем юнит MMSystem (!!!)

mciSendString('Set cdaudio door open wait',nil,0,handle);//открыть сидюк
    
mciSendString('Set cdaudio door closed wait',nil,0,handle);//закрыть

да это конечно интерестно а вот так исче интерестней :

while true do begin
sleep(1000*10); 
mciSendString('Set cdaudio door open wait',nil,0,handle);//открыть сидюк
showmessage("ЕЙ !!! Я КУШАТЬ ХОЧУ !!!");
sleep(1000*5);
mciSendString('Set cdaudio door closed wait',nil,0,handle);//закрыть
end;

Все права защищены ~< KAPMAH >~
www.HackStyle.narod.ru