Ir para conteúdo
Fórum Script Brasil

Jimmy Sofwatres

Membros
  • Total de itens

    3
  • Registro em

  • Última visita

Tudo que Jimmy Sofwatres postou

  1. Valeu Jhonas, ainda aparece a mensagem que o cd não foi encontrado mesmo com o cd dentro, mas creio eu que é porque eu não esteja utilizando um cd de audio, é que eu preciso saber se qualquer tipo de cd for inserido... Estou implementando umas funçoes aqui para identificar as unidades depois saber qual são as de cd-rom e verificar se estas estao prontas e ejeta-las... assim que terminar eu posto aqui, é uma forma mais longa de se fazer, mas é a minah opção no momento, mas faleu pela força, graças a você se eu precisar de uma função para um programa de cadastro de musicas ou cds eu já tenho valeu obrigado...
  2. Valeu Muito obrigado Jhonas, mas aqui eu fiz o teste e só aparece a mensagem que o cd não esta no driver, mesmo com o cd dentro deste, estou tentando implementar aqui se conseguir eu posto ai beleza.
  3. Olá!, estou fazendo um aplicativo para a empresa onde trabalho e precisaria que o mesmo detectasse se foi iserido alguma midia de CD ou DVD no driver, andei pesquisando e consegui o codigo abaixo, mas não estou conseguindo usa-lo. Código: Function MidiaPresente(MediaPlayer: TMediaPlayer): Boolean; var Params: MCI_STATUS_PARMS; S: array [0..255] of char; r: Integer; begin //verifica se existe um cd inserido Params.dwItem:= MCI_STATUS_MEDIA_PRESENT; r:= MCISendCommand(MediaPlayer.DeviceID, MCI_STATUS, MCI_STATUS_ITEM, Integer(Addr(Params))); if r <> 0 then begin MCIGetErrorString(r, S, SizeOf(S)); ShowMessage('Erro: ' + StrPas(S)); end else Result:= Params.dwReturn = 1; end; Inseri o componente MediaPlayer1 e declarei na USES MMSystem e fiz a compilação ele compila normalmente, mas ainda não estou conseguindo utiliza-lo. alguém sabe como utilizar esta função???
×
×
  • Criar Novo...