如何找出空闲磁盘最大的分区

var i:Cardinal; begin //返回磁盘可用空间 i:=DiskFree(0); showmessage(inttostr(0)) end;    将每个磁盘遍力比较一下，不就知道了吗？

DiskFree(0); 中的0代表什么,还有怎么遍历磁盘

中的0代表什么, 代表第一个磁盘，如c盘 －－－－－－－－－－－ 还有怎么遍历磁盘。 找出机器中所有磁盘，然后比较它们的free disk 就可以了

我的意思怎么找出机器中所有磁盘.这方面我没用delphi做过.请指点.

unit Unit1;    interface    uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;    type   TForm1 = class(TForm)     Button1: TButton;     procedure Button1Click(Sender: TObject);      private     { Private declarations }   public     { Public declarations }   end;    var   Form1: TForm1;    implementation    {$R *.dfm}    function myGetLogicalDrives : String; var drives : set of 0..25; drive : integer; begin Result := ''; DWORD( drives ) := Windows.GetLogicalDrives; for drive := 0 to 25 do if drive in drives then //判断是否是硬磁盘，不要下面这一句可以搜索到所有驱动器 if GetDriveType(pchar(string(Chr(drive+Ord('A')))+':'))=DRIVE_FIXED  then Result := Result + Chr( drive + Ord( 'A' )); end;    function maxfreedrv:string; var drvcount,i:integer; drvfree,a,b,c,d:cardinal; alldrv,maxdrv:string; begin maxdrv:=''; drvfree:=0; alldrv:= myGetLogicalDrives   ; drvcount:=length(myGetLogicalDrives); for i:=1 to drvcount do begin GetDiskFreeSpace(pchar(copy(alldrv,i,1)+':'),a,b,c,d); if drvfree

GetDiskFreeSpace(pchar(copy(alldrv,i,1) ':'),a,b,c,d); 上面这句话过是什么意思呀!

GetDiskFreeSpace(pchar(copy(alldrv,i,1) ':'),a,b,c,d); 上面这句话过是什么意思呀! ---------------------------------- 获取指定磁盘的信息，有剩余空间、已经使用空间、合计空间哦

上面的程序我好像没有看见比较磁盘大小的语句. 另外下面这条语句又问体而我也不太看的懂这条语句您象干什么,要怎么改 if drvfreebegin

function maxfreedrv:string; var drvcount,i:integer; drvfree,a,b,c,d:cardinal; alldrv,maxdrv:string; begin maxdrv:=''; drvfree:=0; alldrv:= myGetLogicalDrives   ; drvcount:=length(myGetLogicalDrives); for i:=1 to drvcount do begin GetDiskFreeSpace(pchar(copy(alldrv,i,1)+':'),a,b,c,d);    if drvfree

可是drvfree是cardinal类型,编译"if drvfree"时提示只能时Bool类型才可以,另外我好像没有看见比较磁盘大小的语句.请回答.

原来有个〈就不能很好的显示哦，所以我改成全角的就可以显示了。 if drvfree〈c then

tank you!