Jump to content

CD/DVD Burning UDF


monoceres
 Share

Recommended Posts

  • 2 weeks later...
  • Replies 70
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

  • 3 months later...
  • 4 months later...

Very Thanks monoceres,Do a good job.

I want to ask : it can burn iso file to the cdrom disc; but how to modify the script to create image file from the cdrom disc?

I mean that , if the cdrom disc is a bootable CD, or a music CD, create image files from the cdrom disc.

Edited by yqf0215
Link to comment
Share on other sites

  • 1 year later...
Link to comment
Share on other sites

  • 5 months later...
  • 10 months later...

Never used this, but looking at the documentation provided you will need to use _IMAPI2_BurnImageToDrive. Before you ask, no I won't.

UDF List:

 
_AdapterConnections()_AlwaysRun()_AppMon()_AppMonEx()_ArrayFilter/_ArrayReduce_BinaryBin()_CheckMsgBox()_CmdLineRaw()_ContextMenu()_ConvertLHWebColor()/_ConvertSHWebColor()_DesktopDimensions()_DisplayPassword()_DotNet_Load()/_DotNet_Unload()_Fibonacci()_FileCompare()_FileCompareContents()_FileNameByHandle()_FilePrefix/SRE()_FindInFile()_GetBackgroundColor()/_SetBackgroundColor()_GetConrolID()_GetCtrlClass()_GetDirectoryFormat()_GetDriveMediaType()_GetFilename()/_GetFilenameExt()_GetHardwareID()_GetIP()_GetIP_Country()_GetOSLanguage()_GetSavedSource()_GetStringSize()_GetSystemPaths()_GetURLImage()_GIFImage()_GoogleWeather()_GUICtrlCreateGroup()_GUICtrlListBox_CreateArray()_GUICtrlListView_CreateArray()_GUICtrlListView_SaveCSV()_GUICtrlListView_SaveHTML()_GUICtrlListView_SaveTxt()_GUICtrlListView_SaveXML()_GUICtrlMenu_Recent()_GUICtrlMenu_SetItemImage()_GUICtrlTreeView_CreateArray()_GUIDisable()_GUIImageList_SetIconFromHandle()_GUIRegisterMsg()_GUISetIcon()_Icon_Clear()/_Icon_Set()_IdleTime()_InetGet()_InetGetGUI()_InetGetProgress()_IPDetails()_IsFileOlder()_IsGUID()_IsHex()_IsPalindrome()_IsRegKey()_IsStringRegExp()_IsSystemDrive()_IsUPX()_IsValidType()_IsWebColor()_Language()_Log()_MicrosoftInternetConnectivity()_MSDNDataType()_PathFull/GetRelative/Split()_PathSplitEx()_PrintFromArray()_ProgressSetMarquee()_ReDim()_RockPaperScissors()/_RockPaperScissorsLizardSpock()_ScrollingCredits_SelfDelete()_SelfRename()_SelfUpdate()_SendTo()_ShellAll()_ShellFile()_ShellFolder()_SingletonHWID()_SingletonPID()_Startup()_StringCompact()_StringIsValid()_StringRegExpMetaCharacters()_StringReplaceWholeWord()_StringStripChars()_Temperature()_TrialPeriod()_UKToUSDate()/_USToUKDate()_WinAPI_Create_CTL_CODE()_WinAPI_CreateGUID()_WMIDateStringToDate()/_DateToWMIDateString()Au3 script parsingAutoIt SearchAutoIt3 PortableAutoIt3WrapperToPragmaAutoItWinGetTitle()/AutoItWinSetTitle()CodingDirToHTML5FileInstallrFileReadLastChars()GeoIP databaseGUI - Only Close ButtonGUI ExamplesGUICtrlDeleteImage()GUICtrlGetBkColor()GUICtrlGetStyle()GUIEventsGUIGetBkColor()Int_Parse() & Int_TryParse()IsISBN()LockFile()Mapping CtrlIDsOOP in AutoItParseHeadersToSciTE()PasswordValidPasteBinPosts Per DayPreExpandProtect GlobalsQueue()Resource UpdateResourcesExSciTE JumpSettings INISHELLHOOKShunting-YardSignature CreatorStack()Stopwatch()StringAddLF()/StringStripLF()StringEOLToCRLF()VSCROLLWM_COPYDATAMore Examples...

Updated: 22/04/2018

Link to comment
Share on other sites

Trying to get this to work but I am in Do Until Loop hell. :wacko: The result I am looking for is that the burn does not happen unless a blank cd that can be written to is in the drive. But in various experiments I am not getting the desired results. Perhaps someone can tell me what I am doing wrong

#include "IMAPI2.au3"

Local $sImage = @DesktopDir & "\my.iso"
; Get the unique ids of all the drives on the system
$ids = _IMAPI2_DrivesGetID()


; Get the object of the first drive
$drive = _IMAPI2_DriveGetObj($ids[1])

Do
_IMAPI2_DriveEject($drive)
MsgBox(64, "Info", "Insert cd-r or cd-rw into drive " & _IMAPI2_DriveGetLetter($drive)& ":")
_IMAPI2_DriveClose($drive)
Do
Sleep(1000)
$code = _IMAPI2_DriveGetMedia($drive)
Until $code <> -1 ; Wait until the drive is ready
Until $code = $IMAPI_MEDIA_TYPE_CDR Or $code = $IMAPI_MEDIA_TYPE_CDRW ; Force the user to insert cd-r or cd-rw


$blank = _IMAPI2_DriveMediaIsBlank($drive)
Do
$blank = False
MsgBox(64, "Info", "The disk is not blank please insert a blank cd-r or cd-rw.")
Do
Sleep(1000)
$code = _IMAPI2_DriveGetMedia($drive)
Until $code <> -1 ; Wait until the drive is ready
Until $blank = True

_IMAPI2_BurnImageToDrive($drive, $sImage,"_Progress")


Func _Progress($array)
ConsoleWrite("Current action: "&$array[0]&@CRLF)
ConsoleWrite("Remaing time: "&$array[1]&@CRLF)
ConsoleWrite("Elapsed time: "&$array[2]&@CRLF)
ConsoleWrite("Total time: "&$array[3]&@CRLF)
EndFunc

_IMAPI2_DriveEject($drive) ; Eject when Burn is complete
Edited by Nunos
Link to comment
Share on other sites

Your do loop is infinite because you are evaluating if $blank = true but there no mechanism to set the value of $blank within the loop.

Edited by spudw2k
Link to comment
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...