aspenjim Posted October 18, 2005 Posted October 18, 2005 The reason I ask is that I put a laptop DVD-RW in a mini-PC and had to remove the faceplate for clearance. Rather than damage the eject button, I'd like to put a shortcut on the desktop to the eject command. I've searched the windows directory and looked at all of the exe files and none of them resemble anything that would eject.
Elektrik Posted October 18, 2005 Posted October 18, 2005 Example for Delphi (in Russian )http://z-oleg.com/delphi/hardw1.htm#0D9057...DA-7C2FDC1CFEED
InTheWayBoy Posted October 18, 2005 Posted October 18, 2005 http://www.phdcc.com/eject-cd/http://www.cd-eject-tool.com/
gunsmokingman Posted October 18, 2005 Posted October 18, 2005 Here is a cmd script that willl open and close the cdSave As OpenClose_CD.cmdecho off && Cls && Mode 55,5 && Color 4f && Title Open CdSet VBS=%systemdrive%\OpenClose.vbsSet VBS1=%systemdrive%\RemoveVBS.vbsecho Preparing To Run The Script!>> %vbs% Echo Dim ts>> %vbs% Echo Dim strDriveLetter>> %vbs% Echo Dim intDriveLetter>> %vbs% Echo Dim fs 'As Scripting.FileSystemObject>> %vbs% Echo Const CDROM = 4>> %vbs% Echo On Error Resume Next>> %vbs% Echo Set fs = CreateObject("Scripting.FileSystemObject")>> %vbs% Echo strDriveLetter = "">> %vbs% Echo For intDriveLetter = Asc("D") To Asc("Z")>> %vbs% Echo Err.Clear>> %vbs% Echo If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then>> %vbs% Echo If Err.Number = 0 Then>> %vbs% Echo strDriveLetter = Chr(intDriveLetter)>> %vbs% Echo Exit For>> %vbs% Echo End If>> %vbs% Echo End If>> %vbs% Echo Next>> %vbs% Echo MSGBOX "YOUR CD IS: " ^& strDriveLetter,0 + 48,"CDROM=> " ^& strDriveLetter>> %vbs% Echo Set oWMP = CreateObject("WMPlayer.OCX.7" )>> %vbs% Echo Set colCDROMs = oWMP.cdromCollection>> %vbs% Echo colCDROMs.Item(d).Eject >> %vbs% Echo A1= msgbox ("Press key To Close Cd" ^& vbcrlf ^& " The Cd Will Close", 0 + 64, "Open Close Cd Tray")>> %vbs% Echo colCDROMs.Item(d).Eject >> %vbs% Echo set owmp = nothing>> %vbs% Echo set colCDROMs = nothing>> %vbs% Echo wscript.quitstart %vbs%ping -n 12 127.0.0.1>nulTASKKILL /F /T /IM Wscript.exeTASKKILL /F /T /IM Wmiprvse.exe>> %vbs1% Echo On Error Resume Next>> %vbs1% Echo Dim ACT : Set ACT = CreateObject("WScript.Shell")>> %vbs1% Echo Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")>> %vbs1% Echo Loc = ACT.ExpandEnvironmentStrings("%SystemDrive%")>> %vbs1% Echo Fso.Deletefile("%VBS%")>> %vbs1% Echo Fso.Deletefile(Loc ^& "\CD-Open-Close.cmd")>> %vbs1% Echo Fso.Deletefile("%VBS1%")>> %vbs1% Echo Set ACT = Nothing>> %vbs1% Echo Set Fso = Nothingstart /w %vbs1%exit
ripken204 Posted October 18, 2005 Posted October 18, 2005 autoit3 does it vry easilyjusy copy this code and change "E" to whatever ur drive's letter is. you can also change "open" to "closed"CDTray("E:", "open")
JRosenfeld Posted October 18, 2005 Posted October 18, 2005 ? I have eject in context menu of CD/DVD drives.
ripken204 Posted October 18, 2005 Posted October 18, 2005 theres that option too, lol. unless he wanted to make it into a shortcut button like f7 or something like that.
gunsmokingman Posted October 19, 2005 Posted October 19, 2005 autoit3 does it vry easilyDo you not have to have it installed for it to work, I am just asking, as the script I posted does not require any third party stuff.
Recommended Posts
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now