//偵測磁碟剩餘容量大小
var
    driver:pchar;
    sec1, byt1, cl1, cl2:longword;
begin
    driver:='c:\';  //要顯示的磁碟代號
    GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2);
    cl1 := cl1 * sec1 * byt1;
    cl2 := cl2 * sec1 * byt1;
    Label1.Caption := '總共容量'   Formatfloat('###,##0',cl2)   'Bytes';
    Label2.Caption := '可用容量'   Formatfloat('###,##0',cl1)   'Bytes';
end;