我在公司为公司做一个安装，可遇到了三个难题，兄弟们帮帮我吧。不然我惨了。

Question

1.你的图片太大了，建议使个小点的图片。
2.GetDiskFreeSpace
3.你用什么来做的包？

Answer 1

1.你可以控制窗体在控件全部加载完毕后在show
2.计算C盘剩余空间var
  ClusterSize, SectorSize, FreeClusters, TotalClusters: DWORD;
  FreeSpace:int64;
begin
  if GetDiskFreeSpace('C:\', ClusterSize, SectorSize, FreeClusters, TotalClusters) then
  begin
    ShowMessage(Format('%d %d %d %d', [ClusterSize, SectorSize, FreeClusters, TotalClusters]));
  end;
  FreeSpace:=ClusterSize*SectorSize*FreeClusters;//计算剩余空间
  Edit1.Text:=inttostr(FreeSpace);//输出
end;3.Sorry  Unknown