aspenjim Posted October 18, 2005 Share 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. Link to comment Share on other sites More sharing options...
Elektrik Posted October 18, 2005 Share Posted October 18, 2005 Example for Delphi (in Russian )http://z-oleg.com/delphi/hardw1.htm#0D9057...DA-7C2FDC1CFEED Link to comment Share on other sites More sharing options...
InTheWayBoy Posted October 18, 2005 Share Posted October 18, 2005 http://www.phdcc.com/eject-cd/http://www.cd-eject-tool.com/ Link to comment Share on other sites More sharing options...
gunsmokingman Posted October 18, 2005 Share 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 Link to comment Share on other sites More sharing options...
ripken204 Posted October 18, 2005 Share 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") Link to comment Share on other sites More sharing options...
JRosenfeld Posted October 18, 2005 Share Posted October 18, 2005 ? I have eject in context menu of CD/DVD drives. Link to comment Share on other sites More sharing options...
ripken204 Posted October 18, 2005 Share 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. Link to comment Share on other sites More sharing options...
gunsmokingman Posted October 19, 2005 Share 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. Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now