aboutu.pas

一个图书馆管理程序

unit AboutU;

interface

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

type
  TAboutF = class(TForm)
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText6: TStaticText;
    version: TStaticText;
    name: TStaticText;
    copyright: TStaticText;
    author: TStaticText;
    StaticText3: TStaticText;
    StaticText7: TStaticText;
    BitBtn1: TBitBtn;
    Image1: TImage;
    Label2: TLabel;
    Label1: TLabel;
    Label3: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure WMNCPaint(var Msg : TWMNCPaint); message WM_NCPAINT;
  end;

var
  AboutF: TAboutF;

implementation

uses ShareU;
{$R *.dfm}


procedure TAboutF.WMNCPaint(var Msg: TWMNCPaint);
begin
  inherited;
  draw(AboutF);
end;

procedure TAboutF.FormCreate(Sender: TObject);
begin
  try
    Caption:='关于 '+application.Title;
    Name.Caption:=Application.Title;
    version.Caption:=' v1.0.0.1';
    Copyright.Caption:='kinney';
    Author.Caption:='kinney';
    //alarm.Caption:='版权所有，翻版必究';

    //Memory.Caption:=FormatFloat('#,###" KB"',GetMemoryInfo div 1024);
   // os.Caption:=GetOSInfo;
  except
    MessageBox(handle,'某些信息不能取得','提示',MB_OK);
  end;
end;

procedure TAboutF.BitBtn1Click(Sender: TObject);
begin
  close;
end;

procedure TAboutF.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AboutF:=nil;
  action:=cafree;
end;

end.