100 分请教关于NMSMTP发邮件的问题。

Question

1.
procedure TfrmMainForm.FormCreate(Sender: TObject);
begin
  Application.OnException := RaiseException;
end;2.
procedure TfrmMainForm.RaiseException(Sender: TObject; E: Exception);
begin
  if E is ERegistryException then
    ShowMsg(Handle, 53, MB_ICONERROR)else
  if E is ESockError then  <----------------　你可以在这里抓他！
    ShowMsg(Handle, 31, MB_ICONERROR)else    ShowMsg(Handle, 54, MB_ICONINFORMATION)
end;

Answer 1

oh , my god~~不知道NMSMTP是不是在ESockError中:(
自己查查吧.

Answer 2

ERegistryException怎么定义？我编译提示没有声明。

Answer 3

to ERegistryException怎么定义？
use registry;

Answer 4

delphi的DEMO目录下有个实例，你可以去看看。