aboutunit.pas

来自「图书馆管理系统,非常有用,希望给你带来帮助」· PAS 代码 · 共 66 行

unit AboutUnit;

interface

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

type
  TAboutForm = class(TForm)
    GroupBox1: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Image1: TImage;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Bevel1: TBevel;
    Label9: TLabel;
    Label10: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    procedure WMNCpaint(var Msg:TWMNCPaint); message WM_NCPAINT;
  public
    { Public declarations }
  end;

var
  AboutForm: TAboutForm;

implementation
uses Share;

{$R *.dfm}

procedure TAboutForm.FormCreate(Sender: TObject);
var
  RegName,RegOrg:string;
  count:Cardinal;
begin
  share.GetInfo(RegName,RegOrg);
  share.GetMemoryInfo(count);
  Label7.Caption:=RegName+'   ';
  Label8.Caption:=RegOrg+'   ';
  Label10.Caption:=FormatFloat('#,###" KB"',count div 1024);
end;

procedure TAboutForm.WMNCpaint(var Msg: TWMNCPaint);
begin
  inherited;
  Draw(aboutform);
end;

procedure TAboutForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  AboutForm:=nil;
  Action:=caFree;
end;

end.