procedure TForm1.sComboBox1Change(Sender: TObject);         //combobox事件
var
  total,free,userf:int64;
  d1,d2,d3,d4: DWORD;
    item:TTreeNode;
//如何在这里判断如果此磁盘空间大于1才执行下面这段?
begin
Self.TreeView1.Items.Clear;
item:=self.TreeView1.Items.AddChild(nil,scombobox1.Text);
self.GetDirectories(self.TreeView1,scombobox1.Text,item,True);
GetDiskFreeSpaceEx(pchar(sCombobox1.Text),userf,total,@free);
end;