unit Uniterrmsg;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls,shellapi;

type
  Tfrmerrmsg = class(TForm)
    BitBtn1: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Memo1: TMemo;
    Image1: TImage;
    Button1: TButton;
    Bevel1: TBevel;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     Procedure CreateParams(Var Params: TCreateParams); Override;
  end;

var
  frmerrmsg: Tfrmerrmsg;

implementation

uses UnitMain;

{$R *.dfm}
Procedure Tfrmerrmsg.CreateParams(Var Params:TCreateParams);
Begin
  inherited CreateParams( Params);
  with params do
  begin
    ExStyle := Params.ExStyle or WS_EX_TOPMOST or WS_EX_TOOLWINDOW;
    WndParent := 0;
  end
End;
procedure Tfrmerrmsg.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure Tfrmerrmsg.FormShow(Sender: TObject);
begin
Label1.Caption:='系統異常:錯誤信息如下：' ;
Memo1.Lines.text:=frmmain.errmsg;
label2.Caption:='請拷貝錯誤信息,發送到wzmbox@21cn.com ,謝謝！'
end;

procedure Tfrmerrmsg.Button1Click(Sender: TObject);
var mailmsg:String;
begin
mailmsg:='mailto:wzmbox@21cn.com?subject=迷你背單詞錯誤信息&body='+frmmain.errmsg;
ShellExecute(Application.Handle,'open',Pchar(mailmsg),nil,nil,SW_SHOWNORMAL);
end;

end.