MP3Car.com - View Single Post

karifan · 06-08-2005, 09:20 AM

only to the completeness..

just another example for an eject button, using invokeverbs.. like selecting a command from an item's shortcut menu...

Code:

NAME=Uni CD/DVD-Rom Script
AUTHOR=karifan
DATE=2005.06.08 12:15:00
DESCRIPTION=Do something with the CD/DVD-Rom
EXECUTE=FUNCTION:Uni DVD/CD-Rom 

NCS_START

Dim ShApp, CDex
Set ShApp=CreateObject("Shell.Application")
Set CDex=ShApp.NameSpace(17).ParseName( "E:\" )
CDex.InvokeVerb("E&ject")

NCS_END

could be used for autoplay the CD:
CDex.InvokeVerb("Auto&Play")
or other verbs..

note: must be specified to the CD letter... e.g.. 'E:/'
and the invoked verbs are dependent on OS and language.

for example on a German WinXP its:
CDex.InvokeVerb("A&uswerfen")

06-08-2005, 09:20 AM	#3
karifan Newbie Join Date: May 2005 Location: Germany Posts: 23	only to the completeness.. just another example for an eject button, using invokeverbs.. like selecting a command from an item's shortcut menu... Code: NAME=Uni CD/DVD-Rom Script AUTHOR=karifan DATE=2005.06.08 12:15:00 DESCRIPTION=Do something with the CD/DVD-Rom EXECUTE=FUNCTION:Uni DVD/CD-Rom NCS_START Dim ShApp, CDex Set ShApp=CreateObject("Shell.Application") Set CDex=ShApp.NameSpace(17).ParseName( "E:\" ) CDex.InvokeVerb("E&ject") NCS_END could be used for autoplay the CD: CDex.InvokeVerb("Auto&Play") or other verbs.. note: must be specified to the CD letter... e.g.. 'E:/' and the invoked verbs are dependent on OS and language. for example on a German WinXP its: CDex.InvokeVerb("A&uswerfen")