PureBoard

Code: Alles auswählen

;>xp only !!! 
;http://msdn.microsoft.com/library/default.asp?url=/library/en-us/shellcc/platform/shell/reference/ifaces/icdburn/icdburn.asp 
; 
;The ICDBurn Interface is used For three things. 
;To determine whether hardware capable of writing To CD is present on the system. 
;To determine the drive letter of a CD writer device. 
;To programmatically initiate a CD writing session. 

CoInitialize_(0) 
If CoCreateInstance_(?CLSID_CDBurn,0,1,?IID_ICDBurn,@object.ICDBurn) = 0 

  object\HasRecordableDrive(@pfHasRecorder) 
  
  If pfHasRecorder 
  
    recorddrive.s = Space(10) 
    
    object\GetRecorderDriveLetter(@recorddrive,10); 
    
    Debug recorddrive 
  
  EndIf 
  
  EndIf 
  CoUninitialize_() 

DataSection 

CLSID_CDBurn: 
Data.l $fbeb8a05 
Data.w $beee,$4442 
Data.b $80,$4e,$40,$9d,$6c,$45,$15,$e9 

IID_ICDBurn: 
Data.l $3d73a659 
Data.w $e5d0,$4d42 
Data.b $af,$c0,$51,$21,$ba,$42,$5c,$8d 

EndDataSection