请问，怎么才能知道tem.db这个文件的大小（字节）及A盘的剩余空间？

Question

procedure TForm1.FormCreate(Sender: TObject);
var
   thefile:tfilestream;
   driver:pchar;
   sec1, byt1, cl1, cl2:longword;begin
  thefile:=tfilestream.Create('c:\msdos.sys',fmopenread);
  caption:=inttostr(thefile.size)+'字节';
driver:='c:\';//盘符号
GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2);
cl1 := cl1 * sec1 * byt1;
cl2 := cl2 * sec1 * byt1;
Caption := caption+'该驱动器总共容量' + Formatfloat('###,##0',cl2) + '字节';
Caption :=caption+ '该驱动器可用容量' + Formatfloat('###,##0',cl1) + '字节';
end;//这里是GetDiskFreeSpace的用法
BOOL GetDiskFreeSpace(    LPCTSTR lpRootPathName, // address of root path 
    LPDWORD lpSectorsPerCluster, // address of sectors per cluster 
    LPDWORD lpBytesPerSector, // address of bytes per sector 
    LPDWORD lpNumberOfFreeClusters, // address of number of free clusters  
    LPDWORD lpTotalNumberOfClusters  // address of total number of clusters  
   );