Wyłączenie wyświetlania błędu "No Mci Device Open"

0

Witam chcialbym was zapytac jak mozna wylaczyc wyswietlanie sie bledu no mci device open gdy sie klika na play , gdy nie ma zaladowanego pliku muzyki.
bo nie mam pojecia.

0

gdy sie klika na play

Jakie 'play'?!

0

Nie wiem dokładnie po co chcesz się pozbywać tego komunikatu zamiast mu zapobiegać ale niech będzie coś takiego:

procedure TForm1.AppExcept(Sender: TObject; E: Exception);
begin
  if not(E is EMCIDeviceError) then //wyswietlamy komunikaty wszyskich bledow oprocz EMCIDeviceError
    Application.MessageBox(PAnsiChar(E.Message),
    PAnsiChar(Application.Title), MB_ICONERROR);
  if (E is EAccessViolation)then //gdy EAccessViolation zakoncz program
    Halt;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnException:= AppExcept;
end;
0

Wyświetlaniu komunikatu " No Mci Device Open" można zapobiec ustawiając parametr funkcji OnClick - DoDefault := False w przypadku jeśli wystąpi w niej wyjątek.
Pozdrawiam

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0