RT @zdnetasia: Homegrown smartphone OSes gaining favor in China. http://t.co/lL8KbccW
25 minutes ago by AsiaBites on twitterZDNet / Techguide / Windows Server
Open sesame, CD-ROM!
Summary
When your program makes use of the CD-ROM drive, it can be a nice touch to open and close the door under program control. Here's a VB tip on how you can open the CD-ROM door.
Events
IBM Technology Conference & Expo 2012
May 23, 2012
Convention Centre B2 Room at 22nd Floor, Centara Grand @ Central World, 999/99 Rama I Road, Pathumwan, Bangkok 10330
Echelon 2012
June 11 and 12, 2012
University Cultural Centre, National University of Singapore
Startup Asia Jakarta 2012
June 7 and 8, 2012
12th Floor, Annex Building, Wisma Nusantara Complex, Jl. M.H. Thamrin No. 59 Jakarta 10350, Indonesia
MMA Forum Singapore
April 23-25, 2012
Grand Hyatt Singapore
When your program makes use of the CD-ROM drive, it can be a nice touch to open and close the door under program control. We'll show you how in this article.
The technique that allows you to do this relies on the mciSendString function from the Windows API. This function provides a general purpose interface to Windows' multimedia capabilities. This is its declaration:
Declare Function mciSendString Lib "winmm.dll"
Alias "mciSendStringA" _
(ByVal lpCommandString As String, ByVal lpReturnString
As String, _
ByVal uReturnLength As Long, ByVal hwndCallback As
Long) As Long
Because the CD-ROM is considered to be a multimedia device, you can use this API function to control it. The first argument tells the device what you want to do. For example, pass the string "set CDAudio door open" to open the door, like this:
retval = mciSendString("set CDAudio door open", "", 0, 0)
You can see that the second through the fourth arguments aren't used in this case and are passed either a blank string or the value zero. Likewise, the function's return value can be ignored. Along with the function declaration shown above, you can put the following two procedures in a code module in your program to provide control of the CD-ROM door.
Public Sub OpenCDDoor()
Dim retval As Long
retval = mciSendString("set CDAudio door open", "", 0, 0)
End Sub
Public Sub CloseCDDoor()
Dim retval As Long
retval = mciSendString("set CDAudio door closed", "", 0, 0)
End Sub
Note that calling OpenCDDoor when the door is already open, or CloseCDDoor when it is closed, has no effect.
Resource Centre Useful content from our premier sponsors
Windows Server TechGuides
Configuring Server Manager for multiple connections with Windows Server 8
Configure Remote Desktop through Group Policy
4 methods of remotely managing Windows Server 2008 Server Core
Install Windows Azure Toolkit for Windows 8 to start building Metro-style apps
Hybrid, on-demand BI with SQL Azure Reporting
Manage apps across Microsoft's public, private clouds
How Google competes with Microsoft in cloud
Locate Windows Azure partners with Microsoft Pinpoint directory
How Windows Azure changes vendor, reseller relationships
Deploy an Azure VM Role Service Package
ZDNet Asia Live
Big data acquisitions pave way to fast, effective innovation - ZDNet Asia http://t.co/ky8YgPAn #Bigdata #analytics via @ciropuglisi
25 minutes ago by MDMGeek on twitter
Big data acquisitions pave way to fast, effective innovation - ZDNet Asia: Big data acquisition... http://t.co/r6taCmG1 #ITNews #BigData
40 minutes ago by BigDataNetwork on twitter
Big data acquisitions pave way to fast, effective innovation - Zd Net http://t.co/d9k21ro5: David G... http://t.co/4JgaOz8g #bigdata #sna
40 minutes ago by BigDataSocial on twitter
Big data acquisitions pave way to fast, effective innovation - Zd Net http://t.co/fbori8UQ: Incr... http://t.co/nuEeUbj7 #ITNews #BigData
40 minutes ago by BigDataNetwork on twitter
Big data acquisitions pave way to fast, effective innovation - ZDNet Asia http://t.co/iFQ74xYI #Bigdata #analytics
40 minutes ago by ciropuglisi on twitter
@ChemarieMonica : Integration, focused investments to propel Windows Phone - ZDNet As... http://t.co/ZVPDpbxH http://t.co/1QrdIsaV #tech
40 minutes ago by mcjimmm on twitter
China social media companies have global potential
http://t.co/p8fkRbfD Chinese social media companies such as #Renren and #Sina might...
China social media companies have global potential
http://t.co/Y3x1qBI1 Chinese social media companies such as #Renren and #Sina might...
#radio Radio United Kingdom by EnjoyIT 1.0 http://t.co/YoV1dcFJ
55 minutes ago by RealTonyRocha on twitter
#radio Radio United Kingdom by EnjoyIT 1.0 http://t.co/CbzcXPPO
55 minutes ago by EVYWeATH on twitter
Integration, focused investments to propel Windows Phone - ZDNet Asia: Gadget Helpline (blo... http://t.co/JZwEJCen http://t.co/KpTZdvuO
55 minutes ago by app_alert on twitter
'Scramble' among vendors to acquire #bigdata co.s to bolster product offerings, manpower and market position. http://t.co/YWjgqj4r #in
55 minutes ago by jamieyzdnetasia on twitter
Homegrown smartphone OSes gaining favor in China thanks to integration with local online services: IDC http://t.co/PJFx58yp #in
55 minutes ago by jamieyzdnetasia on twitter
Companies see sustainability as critical for future biz growth, but face low margins in short term: study. http://t.co/I7jI8uix #in
55 minutes ago by jamieyzdnetasia on twitterSo much as we know , MTK6575 extremely integrated frequency1GHz ARM Cortex-A9 processor, the superiority of 3G / HSPA Modem, and help the...
1 day ago by y15822137359 on 5 SaaS adoption speed bumps to avoidI reckon your view: "CRM is strategy, not software", if a company replicating the approach uses in ERP implementation into CRM, what they...
2 days ago by wykoong on Gartner: Mobile CRM gives better ROI than socialThis video will teach you about the Excel fill handle but also provide you with a workook to download... http://www.youtube.com/watch?v=...
3 days ago by TradeBrother on A quick fill handle trick for Microsoft Excelwaiting...
5 days ago by eapete on What should count in a company's market value?Boy, you've opened a can of worms now.
Wait for the rants & raves.
I was puzzling before this whether to replicate the success formula we executed for a financial institute, and come out with a standard s...
5 days ago by wykoong on Drop the egos, copy ideas, then innovateKeep up with ZDNet Asia
Facebook 
RSS Feeds 
Newsletters 
Twitter Whitepapers
Understanding Awareness in Mixed Presence Collaboration
A Taxonomy of Cross Layer Routing Metrics for Wireless Mesh Networks
SUSE Linux Enterprise Server on the IBM PureFlex System
Businesses are ready for a new approach to IT
The Value Proposition for IBM PureFlex System: Case for IBM PureFlex System for Cloud-Enabled SAP Enterprise Environments
Downloads
Inside ZDNet Asia
Sponsored
Threats and malware know no boundaries. Neither should your web security. See how far Blue Coat Unified Web Security goes to protect your network.
Echelon 2012 - The Awesomer Tech Event in Asia
Echelon 2012 – SEA’s longest running tech startup event goes Awesomer. Catch 50 of Asia’s most promising startups & over 40 international speakers on June 11-12.
Startup Asia Jakarta showcases new product-ready tech startups. Plus: hackathon, exhibition, and speakers. Use promo code CBSi50 for 50% discount.
ZDNet Asia Intelligent Singapore video series
Featuring inteviews with CXOs who define "intelligence" in their markets and reveal how their companies drive business efficiencies through ICT.
