Buscar por:

Abrindo e fechando drive de cd/dvd com um botão

Código

{Este botão verifica se o driver está aberto ou fechado. Se estiver aberto,

ao clicar no botão ele fecha. Se estiver fechado ele abre}

{ Declare MMSystem na seção Uses da Unit }

{ Declare a variável DriveCD como Boolean na VAR do Form.}

procedure TForm1.Button1Click(Sender: TObject);

  begin

    If  DriveCD = true then

      begin

        mciSendString ('Set cdaudio door open wait', nil, 0, handle);

        DriveCD := false;

      end

      else

      begin

        mciSendString ('Set cdaudio door closed wait', nil, 0, handle);

        DriveCD := true;

      end;

 end;

end.