main.pas

获取硬盘信息,包括大小、剩余大小

unit Main;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    function CheckDisk(iSize: Int64): Char;
    function CheckFile(Path: String): Boolean;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  CheckDisk(10);
end;

function TForm1.CheckDisk(iSize: Int64): Char;
var
  i,iCount:Integer;
  arrRecDisk:TarrRecDisk;
  bExist: Boolean;
begin
  bExist := False;
  iCount:=GetLocalDiskInfo(arrRecDisk);
  for i := 0 to iCount - 1 do
  begin
    if arrRecDisk[i].sDrv = 'C' then
      Continue;
    if (arrRecDisk[i].iType = 0) and (arrRecDisk[i].iFree > iSize) then
    begin
      Result := arrRecDisk[i].sDrv;
      Memo1.Lines.Add(Format('盘符%s,类型%d,总容量%d,剩余容量%d',[arrRecDisk[i].sDrv,
      arrRecDisk[i].itype,arrRecDisk[i].iTotal,arrRecDisk[i].iFree]));
      bExist := True;
    //  Break;
    end;
  end;
end;

function TForm1.CheckFile(Path: String): Boolean;
var
  i,iCount: Integer;
  FileName: String;
  arrRecDisk: TarrRecDisk;
begin
  Result := False;
  iCount := GetLocalDiskInfo(arrRecDisk);
  for i := 0 to iCount - 1 do
  begin
    if arrRecDisk[i].sDrv = 'C' then
      Continue;
    FileName := arrRecDisk[i].sDrv + ':\' + Path;
    if FileExists(FileName) then
    begin
      Result := True;
      Break;
    end;
  end;
end;

end.