forum.vdsworld.com Forum Index forum.vdsworld.com
Visit VDSWORLD.com
 
 FAQFAQ   SearchSearch   MemberlistMemberlist   UsergroupsUsergroups   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 


Open CD

 
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> General Help
View previous topic :: View next topic  
Author Message
Quatre87
Valued Newbie


Joined: 07 Jan 2004
Posts: 25
PostPosted: Tue May 11, 2004 2:24 am    Post subject: Open CD Reply with quote
How i can open a CD-ROM unit? In the help file appear @MCI(and more..). But is impossible run a function.. how i can do it?
Back to top
View user's profile Send private message
Garrett
Moderator Team


Joined: 04 Oct 2001
Posts: 2149
Location: A House
PostPosted: Tue May 11, 2004 6:23 am    Post subject: Reply with quote
If you're using VDS 5.x, then there's an example floating around here
somewhere by Codescript called "Insert_eject_anydrive".

It uses api calls to a dll that is included in the download of this example.

I do apologize for not giving you a link to the file, but I'm short on time
tonight an do not have the time to look for it.

It might be quicker for you to check his site first:

http://codescript.vdsworld.com/
_________________
'What you do not want done to yourself, do not do to others.' - Confucius (550 b.c. to 479 b.c.)
Back to top
View user's profile Send private message
CodeScript
Moderator Team


Joined: 08 Jun 2003
Posts: 1060
Location: India
PostPosted: Tue May 11, 2004 8:01 am    Post subject: Reply with quote
Hi Quatre87
AS Garrett said U can check my site and also take a look at the links below:

http://forum.vdsworld.com/viewtopic.php?t=1722

http://forum.vdsworld.com/viewtopic.php?t=1779
_________________
Regards
- CodeScript
Arrow Give your application a professional look with the VDSGUI Extension
Back to top
View user's profile Send private message Visit poster's website
Vic D'Elfant
Past Contributor
Past Contributor


Joined: 26 Jun 2002
Posts: 673
Location: The Netherlands
PostPosted: Tue May 11, 2004 9:34 am    Post subject: Reply with quote
You could also have a look at my first post at the VDSWORLD discussion forums. (damn... I'm getting emotional Wink)

http://www.vdsworld.com/forum/viewtopic.php?t=379

Regards,
Vic
_________________
phpBB Development Team
Back to top
View user's profile Send private message Visit poster's website
harry
Contributor
Contributor


Joined: 01 May 2003
Posts: 61
PostPosted: Wed May 12, 2004 2:34 am    Post subject: Reply with quote
heres a my first mci test converted from 2.5 i think so long ago
memory fades so its not a fancy GUI but it has lots of @mci ()
functions........ it will play *SOME* GameCD audio also . rip game sounds.. works on my burner 52x32x52x
harry

Code:
   REM *** Converted by Script Converter on Tuesday, May 11, 2004 7:20 PM ***
   REM CDPlayer by Harry F. Mahann.
   REM  playssome  GameCD audio  also.
   REM if there is more than 20 tracks press button 20 and player will play rest of cd
   title CD Player
   %5 = @mci(open CDAudio shareable)
   %R = @mci(Set CDAudio time format tmsf)
   %B = @mci(Status CDAudio number of tracks)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)


   REM *** Changed by Script Converter ***
   DIALOG CREATE,CD Player,-1,0,415,155
   DIALOG ADD,BUTTON,BUTTON1,13,10,44,20,1,,DEFAULT
   DIALOG ADD,BUTTON,BUTTON2,13,60,44,20,2
   DIALOG ADD,BUTTON,BUTTON3,13,110,44,20,3
   DIALOG ADD,BUTTON,BUTTON4,13,160,44,20,4
   DIALOG ADD,BUTTON,BUTTON5,13,210,44,20,5
   DIALOG ADD,BUTTON,BUTTON6,13,260,44,20,6
   DIALOG ADD,BUTTON,BUTTON7,13,310,44,20,7
   DIALOG ADD,BUTTON,BUTTON8,13,360,44,20,8
   DIALOG ADD,BUTTON,BUTTON9,35,10,44,20,9
   DIALOG ADD,BUTTON,BUTTON10,35,60,44,20,10
   DIALOG ADD,BUTTON,BUTTON11,35,110,44,20,11
   DIALOG ADD,BUTTON,BUTTON12,35,160,44,20,12
   DIALOG ADD,BUTTON,BUTTON13,35,210,44,20,13
   DIALOG ADD,BUTTON,BUTTON14,35,260,44,20,14
   DIALOG ADD,BUTTON,BUTTON15,35,310,44,20,15
   DIALOG ADD,BUTTON,BUTTON16,35,360,44,20,16
   DIALOG ADD,BUTTON,BUTTON17,57,110,44,20,17
   DIALOG ADD,BUTTON,BUTTON18,57,160,44,20,18
   DIALOG ADD,BUTTON,BUTTON19,57,210,44,20,19
   DIALOG ADD,BUTTON,BUTTON20,57,260,44,20,20
   DIALOG ADD,BUTTON,pause,94,244,78,32,Pause/Stop
   DIALOG ADD,BUTTON,PLAY,94,322,80,32,Play
   DIALOG ADD,BUTTON,open,94,88,78,32,Open
   DIALOG ADD,BUTTON,shut,94,166,78,32,Shut
   DIALOG ADD,BUTTON,cancel,94,10,78,32,Cancel
   DIALOG ADD,BITMAP,BITMAP1,1,367,,,about.ico,,HAND,CLICK
   REM *** The following line will require re-coding
   REM *** See upgrade notes for more information
   REM DIALOG ADD,POPUP,Minimize|Maximize|BYE!
   DIALOG ADD,STATUS,track,This CD has %B tracks : Playing track :%D :%C
   DIALOG SHOW

:evloop
   wait event
   dialog set,track,This CD has %B tracks : Playing track:%D :%C
   goto @event()

:BUTTON1BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 1)
   %F = @mci(Play CDaudio from 0 to 1)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON2BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 2)
   %F = @mci(play cdaudio from 2)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON3BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 3)
   %F = @mci(play cdaudio from 3)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON4BUTTON
   DIALOG  CLEAR, track

   %g = @mci(Seek CDAudio to 4)
   %h = @mci(play cdaudio from 4)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON5BUTTON
   DIALOG  CLEAR,track

   %R = @mci(Seek CDAudio to 5)
   %U = @mci(play cdaudio from 5)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop


:BUTTON6BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 6)
   %F = @mci(play cdaudio from 6)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON7BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 7)
   %F = @mci(play cdaudio from 7 to 8)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON8BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 8)
   %F = @mci(play cdaudio from 8)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON9BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 9)
   %F = @mci(play cdaudio from 9)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON10BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 10)
   %F = @mci(play cdaudio from 10)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON11BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 11)
   %F = @mci(play cdaudio from 11)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON12BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 12)
   %F = @mci(play cdaudio from 12)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON13BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 13)
   %F = @mci(play cdaudio from 13)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON14BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 14)
   %F = @mci(play cdaudio from 14)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON15BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 15)
   %F = @mci(play cdaudio from 15)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON16BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 16)
   %F = @mci(play cdaudio from 16)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON17BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 17)
   %F = @mci(play cdaudio from 17)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON18BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 18)
   %F = @mci(play cdaudio from 18)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON19BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 19)
   %F = @mci(play cdaudio from 19)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:BUTTON20BUTTON
   DIALOG  CLEAR, track

   %E = @mci(Seek CDAudio to 20)
   %F = @mci(play cdaudio from 20)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:pauseBUTTON
   %M = @MCI(pause cdaudio)
   %N = @mci(Status CDAudio current track)
   %O = @mci(Status CDAudio Mode)
   DIALOG  SET, track,This CD has %B tracks : Playing track: %N :%O

   goto evloop

:playBUTTON
   %X = @MCI(play CDAudio)
   %P = @mci(Status CDAudio Mode)
   %Q = @mci(Status CDAudio current track)

   DIALOG  SET, track,This CD has %B tracks :Playing track:%Q :%P
   goto evloop

:openBUTTON
   DIALOG  CLEAR, track
   %R = @mci(Set CDAudio Door Open)
   %C = @mci(Status CDAudio Mode)
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D :%C
   goto evloop

:shutBUTTON
   DIALOG  CLEAR, track
   %R = @mci(Set CDAudio Door closed)
   wait
   %D = @mci(Status CDAudio current track)
   DIALOG  SET, track,This CD has %B tracks : Playing track:%D
   goto evloop

:BITMAP1CLICK
   info CDPlayer@CHR(169) 1996  Mahann Technical Services @CR()I made 'dis Software by Harry F. Mahann
   goto evloop

:cancelBUTTON
   %S = @MCI(Stop CDAudio)

   goto close

:MinimizeMENU
   WINDOW  ICONIZE, CD Player
   goto evloop
:MaximizeMENU
   WINDOW  NORMAL,  CD Player
   goto evloop
:BYE!MENU
:Close
   %T = @MCI(Close CDAudio)
   exit



Last edited by harry on Wed May 12, 2004 4:09 pm; edited 1 time in total
Back to top
View user's profile Send private message
Protected
Valued Contributor
Valued Contributor


Joined: 02 Jan 2001
Posts: 228
Location: Portugal
PostPosted: Wed May 12, 2004 7:48 am    Post subject: Reply with quote
Basically, after all the nostalgy thing, what you need to do is simply

%R = @mci(set cdaudio door open)

=) Enjoy hehe
Back to top
View user's profile Send private message Send e-mail Visit poster's website MSN Messenger
Display posts from previous:   
Post new topic   Reply to topic    forum.vdsworld.com Forum Index -> General Help All times are GMT
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
You can attach files in this forum
You can download files in this forum

Twitter@vdsworld       RSS

Powered by phpBB © 2001, 2005 phpBB Group