unit2.pas

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

unit Unit2;

interface

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

type
  TForm1 = 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
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.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 TForm1.BitBtn2Click(Sender: TObject);
begin
  close;
end;

end.