unit1.pas

来自「计算各个驱动器的大小以及剩余空间。精确度很高」· PAS 代码 · 共 52 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    SpinEdit1: TSpinEdit;
    procedure SpinEdit1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.SpinEdit1Change(Sender: TObject);
Var S1,S2,SS:string;
AmtFree,Total,N_parameter:integer;
begin
N_parameter:=SpinEdit1.Value;
AmtFree:=DiskFree(N_parameter);
Total:=DiskSize(N_parameter);
case N_parameter of
0:SS:='当前';
1:SS:='A';
3:SS:='C';
4:SS:='D';
5:SS:='E';
6:ss:='光盘';
else
 SS:='无此驱动器!'
end;
if SS='无此驱动器!' then
showmessage(SS)
else
S1:=SS+'驱动器上有'+floatToStr(round(AmtFree/Total*100))+'％的剩余空间';
S2:=IntToStr(AmtFree div 1024)+'K byte free.';
canvas.TextOut(300,176,S1+S2)
end;

end.