|
|
|
|
|
|
|
|
The following example is used to burn the files found in the compilation. The burner door will be automatically opened at the end of burn process. The "BurnCDProc" procedure is regularly called during the burn process. The parameters of this procedure are automatically filled. // Actual CD burning
// The burner door will be automatically opened at the end of burn process
ResBurn is boolean
ResBurn = BurnerSave(burnerAutoEject, ProcBurnCD)
// Error occurred?
IF ResBurn = False THEN
// Display the error
Error(ErrorInfo(errMessage))
ELSE
// Burn process started
Info("Burn operation in progress")
END
// -- Procedure ProcBurnCD // --
// This procedure is regularly called during the burn process
// The parameters are automatically filled
PROCEDURE ProcBurnCD(BurnStatus, BurnMessage, Param1)
// Event that occurred?
SWITCH BurnStatus
// The burn process was canceled
CASE burnerNotificationCancel
IF YesNo("Do you want to cancel the burn operation?") THEN
RETURN True
END
RESULT False
// Error detected
CASE burnerNotificationError
Error("An error occurred", BurnMessage)
// Burn process completed
CASE burnerNotificationEndBurning
IF Param1 = 0 THEN
Info("CD burning done")
ELSE
Error("Error during the burn operation", BurnMessage)
END
...
END
Esta página también está disponible para…
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|