aboutform.pas

家庭理财系统.rar

unit AboutForm;

interface

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

type
  TAbout = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    Label40: TLabel;
    Label41: TLabel;
    Label42: TLabel;
    Label43: TLabel;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Image1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  About: TAbout;

implementation

{$R *.dfm}

procedure TAbout.Button1Click(Sender: TObject);
begin
  postmessage(handle,wm_close,0,0);
end;

procedure TAbout.Image1Click(Sender: TObject);
begin
  shellExecute(GetDesktopWindow,'Open','mailto:[e-mail]',
nil,nil,SW_ShowNormal);
end;

end.