[windows] Very_usefull_Code_for_stressed_people
Posted: Tue Aug 06, 2002 2:14 pm
Code updated for 5.20+
Restored from previous forum. Originally posted by Rings.
Its a long way to the top if you wanna .....CodeGuru
Restored from previous forum. Originally posted by Rings.
Code: Select all
NeedHolder= MessageRequester("Admin","Want me to hold your beer for you?", #MB_YESNO + #MB_ICONQUESTION)
If NeedHolder = 6
mciSendString_( "set cdaudio door open", "", 0,0)
MessageRequester("Admin","Wait, we see that you have already been using your CDRom as a beer holder and have spilled! ?? " +Chr(13)+"We regret that we must retract our offer and your CDTray!", 0)
mciSendString_( "set cdaudio door closed", "", 0,0)
EndIf
Its a long way to the top if you wanna .....CodeGuru