#1 Burning Software

Burner.SCSIInfo     := wDevItem.SCSIInfo;
    Burner.DiscSizeInfo := wDevItem.DiscSizeInfo;
    burner.WriteModes   := wDevItem.WriteModes;
    Burner.DiscType     := wDevitem.DiscType;
    Burner.DeviceName   := wDevItem.DeviceName;

    wDevInfo.VendorID   := wDevItem.Vendor;
    wDevInfo.ProductID  := wDevItem.Product;
    wDevInfo.ProductRevisionLevel   := wDevItem.ProductRevisionLevel;
    wDevInfo.BufferSize := wDevItem.BufferSize;
    wDevInfo.SupportedMediaFormats  := wDevItem.MediaFormats;
    wDevInfo.SupportedMediaFormatsEx    := wDevItem.MediaFormatsEx;
    Burner.DeviceInfo   := wDevInfo;
    Burner.PrepareGrabber;
    Burner.LockDrive;


    Self.FFileSystem.SystemType     := fstISO9660Joilet;
    Self.FFileSystem.ISO9660Level2  := true;
    Self.FFileSystem.EnabledEIT     := false;
    Self.FFileSystem.BootImage      := '';

    Burner.FileSystem   := Self.FFileSystem;
       {
    if Burner.ISO9660JolietFileTree = nil then
        Burner.PrepareFileTree;
       }
    Self.FFileTreeAction.FileTree   := Self.tvFiles;
    Self.FFileTreeAction.FileSystem := Self.FFileSystem;

    Actions.Clear;
    wItem           := Actions.Add;
    wItem.Action    := FFileTreeAction;



    Self.FSpeedList         := TsbDiscSpeedList.Create;
    Self.FSpeedList.PrepareSpeeds(Burner);

    Self.FBurnOptions.Mode              := bmTrackAtOnce;
    Self.FBurnOptions.IsMultiSession    := true;
    Self.FBurnOptions.IsSOPC            := true;
    Self.FBurnOptions.SpeedInPoint      := Self.FSpeedList.Items[Self.FSpeedList.Count - 1].SpeedInPoint;
    Self.FBurnOptions.SpeedInSize       := Self.FSpeedList.Items[Self.FSpeedList.Count - 1].SpeedInSize;
    Burner.BurnOptions                  := Self.FBurnOptions;

    Self.InitProgress;

    CallBackEventer.OnWriteProgress         := WriteProgressHandler;
    CallBackEventer.OnBufferStatus          := BufferStatusHandler;
    CallBackEventer.OnBufferDisable         := BufferDisableHandler;

    wItem           := Actions.Add;
    wItem.Action    := BurnAtOnceToCDDVDAction;
    wItem.PageOwner := 7;

    SBAddDirOrFileNode(FindFirstParentDirNode(tvFiles.Selected), Self.edtPath.Text);

    Actions.UpdateActionsEvent;
    Actions.Burner      := Burner;

    try
        for i := 0 to Actions.Count - 1 do
        begin
            wItem           := Actions[i];
            if Assigned(wItem.Action) then
                witem.Action.RunAction(wItem);
        end;
    except
        on E: Exception do
        begin
            Self.mmResult.Lines.Add(e.Message);
        end;