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;
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;
oh , my god~~不知道NMSMTP是不是在ESockError中:(
自己查查吧.
use registry;