Typhon之异常错误克星TLSException

typhon例子，在目录CodeOcean\pl_Solutions\samples\LSException

unit xxxfrm;
{$mode objfpc}{$H+}
type
  { TMainForm }
 ...

interface

uses

  SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;

var

  ...

implementation

{$R *.frm}

uses
  LSException;

{ TMainForm }
...

 initialization

//可以发邮件 TLSException.Register(True, 'Your Name', 'destination@gmail.com',   'youremail@gmail.com', //'yourpassword','smtp.gmail.com', '465', True, True);

   TLSException.Register();

end.

效果见下图：