help.pas

车辆管理系统

unit help;

interface

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

const
  wm_user_getdata = WM_USER+1024;

type
  Tfrmhelp = class(TfrmBase_C)
    Memo1: TMemo;
    Panel1: TPanel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    procedure getdata(var getdata:Tmessage);message WM_USER_GETDATA;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmhelp: Tfrmhelp;

implementation

uses Global;

{$R *.dfm}

procedure Tfrmhelp.Button1Click(Sender: TObject);
begin
  inherited;
  close;
end;

procedure Tfrmhelp.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  frmhelp:=nil;
end;

procedure Tfrmhelp.getdata(var getdata: Tmessage);
begin
  memo1.Lines.Add('东创软件有限公司');
  memo1.Lines.Add('系统开发 ：刘祥 ');
  memo1.Lines.Add('技术支持 ：[e-mail]');
  memo1.Lines.Add('           0716-3801389 ');
  memo1.Lines.Add('           QQ:405090991 ');
  memo1.Lines.Add('===============================');
  memo1.Lines.Add('开发日期 : 2006-05-01');
  memo1.Lines.Add('电脑名称 : '+gs_getcomputername);
  memo1.Lines.Add('当前地址 : '+gs_getlocalip);
  memo1.Lines.Add('显示分辩 : '+gs_getdisplaymetrics);
  memo1.Lines.Add('系统语言 : '+gs_getlanguage);
  memo1.Lines.Add('文件路径 : '+gs_getAppPath);
  memo1.Lines.Add('系统名称 : '+gs_getappName);
  memo1.SetFocus;
  memo1.SelStart := 0;
  memo1.Perform(wm_vscroll,sb_top,0);
end;

procedure Tfrmhelp.FormShow(Sender: TObject);
begin
  inherited;
  postmessage(handle,WM_USER_GETDATA,0,0);
end;

end.