Jump to content

Recommended Posts

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

Top Posters In This Topic

Top Posters In This Topic

  • 3 months later...
Posted

is it posible to include this methode: http://msdn.microsoft.com/en-us/library/aa365373%28VS.85%29.aspx

maby we can set with this the disk write speed

greetz

  • 4 months later...
Posted (edited)

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
  • 1 year later...
Posted
  • 5 months later...
  • 10 months later...
Posted

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:

  Reveal hidden contents

Updated: 22/04/2018

Posted (edited)

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
Posted (edited)

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

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
  • Recently Browsing   0 members

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