Gravação de CD/DVD com API do Windows

Visitas

Abra um projeto no Visual Basic 6.

Adicione a referência (Projetc > References) "VB CD Mastering API Type Library".

Inclua o Código Abaixo.

Dim VcSCDBurner As cSimpleCDBurner

Sub GravaCD (ByVal arq As String)
   Set VcSCDBurner = New cSimpleCDBurner

   'Você também pode passar o Handle como parâmetro
   VcSCDBurner.Initialise Me.hwnd

   'Verificando se tem unidade de Gravação de CD/DVD
   If Not VcSCDBurner.HasRecordableDrive Then Exit Sub

   'Se quiser saber Qual a Unidade de CD basta usar
   Dim Unid As String
   Unid = VcSCDBurner.RecorderDriveLetter

   'Copiando o arquivo para pasta temporária de gravação
   'Neste ponto, você pode copiar pasta, vários arquivo, renomeando;
   'depende de sua necessidade
   FileCopy arq, VcSCDBurner.BurnStagingAreaFolder

   'Executando o assistente de gravação do Windows
   VcSCDBurner.Burn

End Sub

Obs.: A gravação só está disponível para versões do Windows Superiores ao Windows XP. Para identificar a versão do Windows.

O arquivo responsável pela API é o IVBIMAPI.tlb.