如何捕捉异常错误的消息,例如:

Question

我用TRY_EXCEPT 能捕捉到MEDIAPLAYER 的异常错误,可是我想知道到底是什么错误如'NO MCI DEVICE OPEN' ,这样我就可以再重新打开设备了.
下面是代码:TRY
  MEDIAPLAYER1.PLAY;
EXCEPT
//我需要在这里捕捉到到底是什么错误.
END; 
我是菜鸟,不知道是否能实现,请执教

Answer 1

TRY
  MEDIAPLAYER1.PLAY;
EXCEPT
showmessage('error');
//我需要在这里捕捉到到底是什么错误.
END; 

Answer 2

TRY
  MEDIAPLAYER1.PLAY;
EXCEPT
ON E:EXCEPTION DO
showmessage(E.MESSAGE);//具体的错误信息
END; 

Answer 3

TRY
  MEDIAPLAYER1.PLAY;
EXCEPT
ON E:EXCEPTION DO
showmessage(E.MESSAGE);//具体的错误信息
END; 

Answer 4

TRY
  MEDIAPLAYER1.PLAY;
EXCEPT
ON E:EXCEPTION DO
showmessage(E.MESSAGE);//具体的错误信息
END; 

Answer 5

TRY
  MEDIAPLAYER1.PLAY;
EXCEPT
  ON E:EXCEPTION DO
    showmessage(E.MESSAGE);//具体的错误信息
END; 

Answer 6

TRY
  MEDIAPLAYER1.PLAY;
EXCEPT
  ON E:EXCEPTION DO
    showmessage(E.MESSAGE);
END; 
Exception是所用错误的基类，Message 是具体的错误描述。