Buscar por:

Gravando cd com nero atravez delphi (ou .bat)

Código

{

Gravando CD's com Nero pelo Delphi

Para gravar um CD com Nero atraves do Delphi basta voce usar o comando WinExec e passar os paramentros adequados

Veja o exemplo abaixo:

}

procedure TFm_Backup.Btn_GravarClick(Sender: TObject);

var

  liResult:Integer;

  lsMsg:String;

begin

  //Executando o "NeroCmd.exe"  

  liResult := WinExec(PAnsiChar('"C:Arquivos de programasAheadNeroNeroCmd.exe" --write --drivename d --speed 8 --real --iso Backup --detect_non_empty_cdrw --force_erase_cdrw --create_iso_fs "'+Edt_NomeArquivo.Text+'"'),SW_shownormal);

  //Verificando se houve algum ao executar o "Nerocmd.exe" 

  if liResult < 31 then

  begin

    case liResult of

      0: lsMsg := 'O sistema esta sem memória ou recursos';

      ERROR_BAD_FORMAT: lsMsg := 'O arquivo executavel é invalido (non-Win32 .EXE or error in .EXE image).';

      ERROR_FILE_NOT_FOUND:     lsMsg := 'Arquivo especificado não encontrado';

      ERROR_PATH_NOT_FOUND:     lsMsg := 'Caminho especificado não encontrado';

    end;

    Raise Exception.Create(lsMsg);

  end;

end;

{

 Detalhamento dos parametros:

  --write : paramentro que instrui o "NeroCmd" a executar a ação de escrita (Burn)

  --drivename : paramentro que indica ao "NeroCmd" o nome da unidade usada para gravar o CD (geralmente "d")

  --speed : paramentro que indica ao "NeroCmd" a velocidade que deve ser usada na gravacao

  --real : paramentro que indica ao "NeroCmd" que o processo desejado nao é uma simulação

  --iso : paramentro que indica ao "NeroCmd" qual o nome do volume que sera criado

  --detect_non_empty_cdrw : parametro necessario para discos regravaveis (CD/RW)

  --force_erase_cdrw : paramentro que indica ao "NeroCmd" que o CD deve ser apagado antes da gravação

  --create_iso_fs : este parametro deve ser acompanhado do nome do arquivo ou pasta que voce deseja gravar

 se precisar de mais ajuda execute o programa "NeroCmd.exe" e veja a lista completa de parametros ...

}