ก่อนอื่นต้องประกาศ External function ก่อนครับ
FUNCTION ULong MciSendString(String lpszCommand, &
ref String lpszReturnString, &
ULong cchReturn, ULong hwndCallback) &
LIBRARY "winmm.dll" &
ALIAS FOR "mciSendStringA"
หากต้องการ เปิดถาด CD-DRIVE เขียนตามนี้ครับ
String lpszReturnString
ULong cchReturn, ll_rc
lpszReturnString = Space(100)
ll_rc = MciSendString('set cdaudio door open wait', lpszReturnString, cchReturn, 0)
// ll_rc = 0 Ok
ในทางตรงข้าม
String lpszReturnString
ULong cchReturn, ll_rc
lpszReturnString = Space(100)
ll_rc = MciSendString('set cdaudio door closed wait', lpszReturnString, cchReturn, 0)
//ll_rc = 0 Ok
จากเวปเมืองนอกครับ ทดสอบแล้ว
ปิด - เปิด ถาด CD-ROM
Latest News
- บทที่ 7-1 ตอน การสร้างระบบฐานข้อมูล
- บทที่ 6 ทดลองเขียนโปรแกรมด้วย PocketBuilder เบื้องต้น
- บทที่ 4 ติดตั้งdatabase sql anywhere
- บทที่ 7-2 ตอน การสร้างโปรแกรมแสดงรายการอาหารที่สั่ง ด้วย Powerbuilder 9
- บทที่ 3 ติดตั้งอุปกรณ์ และโปรแกรม Active Sync
- ทำชุด setup โปรแกรมด้วย Wise Install
- การติดตั้ง IIS
- ตัวอย่าง code โปรแกรมร้านเช่า VDO
- สมาชิก : 2
- Content : 336
- เว็บลิงก์ : 8
- จำนวนครั้งเปิดดูบทความ : 158991