كود فتح الـ cd-rom وإغلاقه

[عنـ الشوق ـاد]

كود فتح الـ cd-rom وإغلاقه

[right][right]private declare function mcisendstring lib "winmm.dll" alias "mcisendstringa" (byval lpstrcommand as string, byval lpstrreturnstring as string, byval ureturnlength as long, byval hwndcallback as long) as long

public sub opencddrivedoor(byval state as boolean)
if state = true then
call mcisendstring("set cdaudio door open", 0&, 0&, 0&)
else
call mcisendstring("set cdaudio door closed", 0&, 0&, 0&)
end if
end sub

private sub command1_click()
opencddrivedoor (true)
end sub

private sub command2_click()
opencddrivedoor (false)
end sub

[/right][/right]

[الـــدانـــة]

تسلم يمنــــاك أخوي عنــاد