simple cd/dvd eject/load in win32 (2000/xp/vista/server2003)

[bingo]

Code: Select all

#IOCTL_STORAGE_EJECT_MEDIA = $D4808
#IOCTL_STORAGE_LOAD_MEDIA = $2D480C

hDevice = CreateFile_("\\.\Cdrom0",#GENERIC_READ,#FILE_SHARE_READ,0,#OPEN_EXISTING,0,0)
    
If hDevice <> #INVALID_HANDLE_VALUE
  
DeviceIoControl_(hDevice,#IOCTL_STORAGE_EJECT_MEDIA,0,0,0,0,@bytesReturned,0)
Debug @bytesReturned

Delay(5000)

DeviceIoControl_(hDevice,#IOCTL_STORAGE_LOAD_MEDIA,0,0,0,0,@bytesReturned,0)
Debug @bytesReturned

CloseHandle_(hDevice)

EndIf

\\.\Cdrom0 the physical first cd/dvd
\\.\Cdrom1 the physical second cd/dvd
...

[Le Soldat Inconnu]

Nice

It's work too with drive letter

example :

Code: Select all

#IOCTL_STORAGE_EJECT_MEDIA = $D4808 
#IOCTL_STORAGE_LOAD_MEDIA = $2D480C 

hDevice = CreateFile_("\\.\F:",#GENERIC_READ,#FILE_SHARE_READ,0,#OPEN_EXISTING,0,0) 
    
If hDevice <> #INVALID_HANDLE_VALUE 
  
  DeviceIoControl_(hDevice,#IOCTL_STORAGE_EJECT_MEDIA,0,0,0,0,@bytesReturned,0) 
  Debug @bytesReturned 
  
  Delay(3000) 
  
  DeviceIoControl_(hDevice,#IOCTL_STORAGE_LOAD_MEDIA,0,0,0,0,@bytesReturned,0) 
  Debug @bytesReturned 
  
  CloseHandle_(hDevice) 
  
EndIf 

[sartic]

not working here (win7 32bit)
another solution?

[tola]

Hello,

I know it's a old post but i see an error in constant values.

"#IOCTL_STORAGE_EJECT_MEDIA = $D4808" is bad ....

"#IOCTL_STORAGE_EJECT_MEDIA = $2D4808" is right and, after, it's work on 7...

good night...