Senden an .. DVD-Brenner mit Autoit?

1. offizieller Beitrag

    Hy Leude,

    mit der Funktion rechtsklick und Senden an kann man ja Dateien an den Brenner schicken und diese dann mithilfe von Windows brennen. Meine Frage wäre ob das auch mit Autoit realisierbar wäre und wenn ja wie.

    thx

    Also "CommandBurner" werde ich auf alle Fälle im Auge behalten, da ich dann bei meinem aktuellen Projekt "D-RoboCopy" (GUI für das Microsofttool Robocopy) noch eine Brennversion einbauen kann. Also mal den PAP um diese Funktion erweitert.

    Lieben Gruß,
    Alina

    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    Geheime Information: ;)
    OuBVU5ebLhHu5QvlnAyQB4A7SzBrvWulwL7RLl2BdH5tI6sIYspeMKeXMSXl

    Ich habs jetzt vom XP im Kopf: <User-Dir>\SendTo
    D.h.: Du machst im Ordner (z. B. C:Dokumente un Einstellungen\All Users\SendTo\) eine Verknüpfung zu deinem Ordner. Ob man da auch die Brennfunkton verwenden kann, eriß ich nicht.

    MfG. tobi_girst

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »tobi_girst« (Morgen, 25:63)

    Hallo

    Ich hatte mal ein Image-Burner programmiert.
    Und zwar habe ich dafür die "Imapi2.au3" benutzt.

    Hier mal mein Image-Burner

    [autoit]


    #include "IMAPI2.au3"
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

    [/autoit][autoit][/autoit][autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=burn.ico
    #AutoIt3Wrapper_outfile=Image-Burner.exe
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

    [/autoit][autoit][/autoit][autoit]

    #cs ----------------------------------------------------------------------------

    [/autoit][autoit][/autoit][autoit]

    AutoIt Version: 3.3.0.0
    Author: Blackdragon_860

    [/autoit][autoit][/autoit][autoit]

    Script Function:

    [/autoit][autoit][/autoit][autoit]

    #ce ----------------------------------------------------------------------------

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    #Region ### START Koda GUI section ### Form=
    $Window = GUICreate("Image-Burner", 374, 97, 213, 238, -1, $WS_EX_ACCEPTFILES)
    $btnOpen = GUICtrlCreateButton("Select", 288, 16, 75, 25, 0)
    $inputFile = GUICtrlCreateInput("", 8, 16, 265, 21)
    GUICtrlSetState(-1, $GUI_DROPACCEPTED)
    $btnBurn = GUICtrlCreateButton("Burn", 8, 56, 75, 25, 0)
    $btnAbbrechen = GUICtrlCreateButton("Abort", 104, 56, 75, 25, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    Global $fileSize, $burn, $ids, $drive

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $btnAbbrechen
    Exit

    Case $GUI_EVENT_DROPPED
    $selectedFile = GUICtrlRead($inputFile)
    _getFileSize()

    Case $btnOpen
    $selectedFile = FileOpenDialog("Select Image","", "ISO (*.iso)")
    If @error <> 1 Then
    GUICtrlSetData($inputFile, $selectedFile)
    _getFileSize()
    Else
    MsgBox(0,"Error", "No File selected")
    EndIf

    Case $btnBurn
    $image = GUICtrlRead($inputFile)
    if $image = "" Then
    MsgBox(0,"Error", "Please select File")
    Else
    _burnImage($image)
    EndIf
    EndSwitch
    WEnd

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Func _getFileSize()
    $fileSize = FileGetSize($selectedFile)
    EndFunc

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    Func _burnImage($burningFile)

    ; Get the unique ids of all the drives on the system
    $ids = _IMAPI2_DrivesGetID()
    ;~ MsgBox(0,"id",$ids[1])

    [/autoit][autoit][/autoit][autoit]

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

    Select
    Case $fileSize <= 700000000
    MsgBox(64, "Info", "Insert cd-r or cd-rw into drive " & _IMAPI2_DriveGetLetter($drive))
    Do
    Sleep(1000)
    $code = _IMAPI2_DriveGetMedia($drive)
    Until $code <> -1 ; Wait until the drive is ready

    [/autoit][autoit][/autoit][autoit]

    Case $fileSize > 700000000
    MsgBox(64, "Info", "Insert dvd or dvd-rw into drive " & _IMAPI2_DriveGetLetter($drive))
    Do
    Sleep(1000)
    $code = _IMAPI2_DriveGetMedia($drive)
    Until $code <> -1 ; Wait until the drive is ready
    EndSelect
    Until $code = $IMAPI_MEDIA_TYPE_CDR Or $code = $IMAPI_MEDIA_TYPE_CDRW Or $code = $IMAPI_MEDIA_TYPE_DVDPLUSR Or $code = $IMAPI_MEDIA_TYPE_DVDPLUSRW Or $code = $IMAPI_MEDIA_TYPE_DVDDASHR Or $code =$IMAPI_MEDIA_TYPE_DVDDASHRW ; Force the user to insert cd-r or cd-rw

    [/autoit][autoit][/autoit][autoit]

    $burn = _IMAPI2_BurnImageToDrive($drive, $burningFile,"_Progress")
    _IMAPI2_DriveEject($drive)
    MsgBox(0,"successful","Finished burning")
    EndFunc

    [/autoit][autoit][/autoit][autoit]

    Func _Progress()
    MsgBox(0, "Beginn", "Please wait!", 5)
    EndFunc

    [/autoit][autoit][/autoit][autoit][/autoit]

    WICHTIG: Eventuell wird dieses Update benötigt: LINK
    WICHTIG2: Verweis Autoitscript-Forum: LINK

    Im Anhang auch die Imapi2.au3

    Grüsse