unit1.pas

来自「Delphi 有很多很好的例子」· PAS 代码 · 共 98 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApi, FileCtrl, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    Button3: TButton;
    Edit3: TEdit;
    Button4: TButton;
    Edit4: TEdit;
    Button5: TButton;
    Edit5: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
sysinfo:Tsysteminfo;
begin
getsysteminfo(sysinfo);

edit1.Text:=inttostr(sysinfo.dwProcessorType);

end;

procedure TForm1.Button2Click(Sender: TObject);
var x,y:integer;
begin
x:=getsystemmetrics(0);

y:=getsystemmetrics(1);

edit2.Text:=inttostr(x)+'*'+inttostr(y);

end;

procedure TForm1.Button3Click(Sender: TObject);
var
meminfo:Tmemorystatus;
begin
globalmemorystatus(meminfo);
edit3.text:=inttostr(meminfo.dwTotalPhys)+'字节';
end;

procedure TForm1.Button4Click(Sender: TObject);
var
FreeBytesAvailableToCaller : TLargeInteger;
FreeSize : TLargeInteger;
TotalSize : TLargeInteger;

begin
GetDiskFreeSpaceEx( 'c:',
                      FreeBytesAvailableToCaller,
                      Totalsize,
                      @FreeSize );
edit4.Text:=inttostr(freesize)+'字节';
end;

procedure TForm1.Button5Click(Sender: TObject);
var 
FreeBytesAvailableToCaller : TLargeInteger; 
FreeSize : TLargeInteger; 
TotalSize : TLargeInteger; 

begin
 GetDiskFreeSpaceEx( 'd:',
                      FreeBytesAvailableToCaller,
                      Totalsize,
                      @FreeSize );
edit5.text:=inttostr(freesize)+'字节';

end;

end.