?? 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:='請拷貝錯誤信息,發送到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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -