Re: Posizione cassetto CD

Article View: free.it.visual-basic

Article #293

Back to free.it.visual-basic Previous Next

#293

From: Davide
Date: Sat, 24 Jun 2006 06:41

28 lines
2124 bytes

ho cercato un po in giro ed ho trovato quanto segue:

http://blog.shareoffice.it/emanuele/archive/2006/05/21/5599.aspx


Microsoft Word Aprire il cassetto del lettore dvd o Cd


Trucco: Aprire il cassetto del lettore dvd o cd

Tramite le api di widows in particolare con la winmm.dll, possiamo aprire il 
cassetto del cd-rom o dvd. Di seguito si riporta tale  codice:

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

Dim Strmssg, Strdriveletter As String
Dim ReturnValue As Long
Strdriveletter = "d:\"
ReturnValue = mciSendString("open " & Strdriveletter & _
" Type cdaudio Alias cd", Strmssg, 255, 0)
ReturnValue = mciSendString("set cd door open", _
vbNullString, 0, 0)

mentre al secondo link, trovi un esempio per conoscere lo stato del cassetto 
del cd.
http://www.ilook.fsnet.co.uk/vb/vbcdplyr.htm

Technical Details

Message-ID: <449cde83$0$10061$4fafbaef@reader3.news.tin.it>

Path:

arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!newspeer1.nwr.nac.net!colt.net!newsfeed.esat.net!tiscali!newsfeed1.ip.tiscali.net!nntp.eutelia.it!feeder.news.tin.it!spool.news.tin.it!not-for-mail

References: <%Xhmg.10686$zy5.225746@twister1.libero.it>

Show Full Headers

Complete Article Headers

X-Google-Thread: f94ee,b92cd4129cd93168
X-Google-Attributes: gidf94ee,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: arc1-ca.pugleaf.net!g2news2.google.com!news4.google.com!border1.nntp.dca.giganews.com!border2.nntp.dca.giganews.com!nntp.giganews.com!newspeer1.nwr.nac.net!colt.net!newsfeed.esat.net!tiscali!newsfeed1.ip.tiscali.net!nntp.eutelia.it!feeder.news.tin.it!spool.news.tin.it!not-for-mail
From: "Davide" <daddy.lee@tin.it>
Newsgroups: free.it.visual-basic
References: <%Xhmg.10686$zy5.225746@twister1.libero.it>
Subject: Re: Posizione cassetto CD
Date: Sat, 24 Jun 2006 08:41:11 +0200
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2900.2869
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2869
X-RFC2646: Format=Flowed; Response
Lines: 30
Message-ID: <449cde83$0$10061$4fafbaef@reader3.news.tin.it>
Organization: TIN.IT (http://www.tin.it)
X-Comments: Please send technical notifications to newsmaster@tin.it
NNTP-Posting-Host: 82.50.132.167
X-Trace: 1151131267 reader3.news.tin.it 10061 82.50.132.167:4547
X-Complaints-To: Please send abuse reports to abuse@tin.it

Reply to Parent Message