serial.~pas

这是用delphi开发的一个物资管理信息系统

unit serial;

interface

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

type
  Tserialfrm = class(TForm)
    Panel1: TPanel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  serialfrm: Tserialfrm;

implementation

{$R *.dfm}

procedure Tserialfrm.BitBtn1Click(Sender: TObject);
 var
  s,ss,sss,n:DWord;
  a:integer;
  aa:Pchar;
  m:Pdword;
begin
  new(m);
  getvolumeinformation(Pchar('D:'),nil,0,m,ss,sss    ,nil,0);
  begin
   a:=m^;
   label6.Caption :=floattostr(a);
   dispose(m);
  end;
   label5.Caption :=formatdatetime('yyyy-mm-dd',now());
   n:=30;
   getmem(aa,30);
   getcomputername(aa,n);
   label7.Caption :=aa;
   label8.Caption :=trim(label5.Caption )+    trim(label7.Caption )+trim(label6.Caption );

end;

procedure Tserialfrm.BitBtn2Click(Sender: TObject);
begin
  close;
end;

end.