stupid question... 1

[redzombi19]

is there a command in foxpro to ejct a cd or floppy?
sorry for the question, i just wanted to know. )
thanks!

 

[joebloeonthego]

Well I doubt there is for floppy as that's a mechanical eject.

 

[DSummZZZ]

It would be an API call for ejecting the CD, but there's no native VFP function.


-Dave S.-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[craigsboyd]

redzombi19,

To open and close the CD drawer... Cut-n-paste the code below into a prg file and run it from within VFP.


Declare Long mciSendString in winmm as mciSendStringA string lpstrCommand, long lpstrReturnStr, Long wReturnLenLong, Long hCallBack
=mciSendStringA("Set CDAudio Door Open Wait", 0, 0, 0)
messagebox("Insert the CD and click OK.", 0, "INSERT CD&quot
=mciSendStringA("Set CDAudio Door Closed Wait", 0, 0, 0)


Slighthaze = NULL

[ul][li]FAQ184-2483
An excellent guide to getting a fast and accurate response to your questions in this forum.[/li][/ul]

 

[redzombi19]

Cool, ill try that thanks!

 

[Nifrabar]

slighthaze ,
allthough I don't see why to use this 'function', just curious!
how do you select a second cd or zipdrive ?
-bart

 

[dbMark]

More hints can be found in thread184-604152

 

[craigsboyd]

Nifrabar,

Code to open whatever CD drawer you want to based on the drive letter. The code below assumes that you have CD drives H:\ and I:\, you will need to modify these to suit. Cut-n-paste the code below into a prg file and run it from within VFP.


LOCAL cCDDrive1, cCDDrive2
cCDDrive1 = "H:\"
cCDDrive2 = "I:\"
Declare Long mciSendString in winmm as mciSendStringA string lpstrCommand, long lpstrReturnStr, Long wReturnLenLong, Long hCallBack
mciSendStringA("Open "+cCDDrive1+" type CDAudio alias CDDrawer1", 0, 0, 0)
mciSendStringA("Set CDDrawer1 Door Open Wait", 0, 0, 0)
messagebox("Insert the CD and click OK.", 0, "INSERT CD IN FIRST DRIVE&quot
mciSendStringA("Set CDDrawer1 Door Closed Wait", 0, 0, 0)
mciSendStringA("Open "+cCDDrive2+" type CDAudio alias CDDrawer2", 0, 0, 0)
mciSendStringA("Set CDDrawer2 Door Open Wait", 0, 0, 0)
messagebox("Insert the CD and click OK.", 0, "INSERT CD IN SECOND DRIVE&quot
mciSendStringA("Set CDDrawer2 Door Closed Wait", 0, 0, 0)


Slighthaze = NULL

[ul][li]FAQ184-2483
An excellent guide to getting a fast and accurate response to your questions in this forum.[/li][/ul]