利用SCL语言打开光驱方法
2011-11 马日辰 上海东方申信科技发展有限公司
这是使用SCL语言的一个额外的功能，如果你的设备带有光驱可以用来测试该功能。它可以用来打开光驱舱盖。
虽然是个很简单的功能，相信你可以找到更酷的用法。
procedure open_cd_drive()
Const
THE_DLL 'winmm.dll'
THE_CMD 'mciSendStringA'
Var
func_return : Integer
lpstrCommand : String
lpstrReturnString : String
uReturnLength : Integer
hwndCallback : Integer
Begin
lpstrCommand = 'set CDAudio door open'
lpstrReturnString = ''
uReturnLength = 127
hwndCallback = 0
func_return = c_exec( THE_DLL + ":" + THE_CMD , \
lpstrCommand , \
lpstrReturnString , \
uReturnLength , \
hwndCallback )
End
代码来源:作者Jon Fournier
