uniterrmsg.pas

一个背单词程序。是我闲着没事做的。 给大家看看

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:='请拷贝错误信息,发送到[e-mail] ,谢谢！'
end;

procedure Tfrmerrmsg.Button1Click(Sender: TObject);
var mailmsg:String;
begin
mailmsg:='mailto:[e-mail]?subject=迷你背单词错误信息&body='+frmmain.errmsg;
ShellExecute(Application.Handle,'open',Pchar(mailmsg),nil,nil,SW_SHOWNORMAL);
end;

end.