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;
解决方案 »
- 初学DELPHI求前辈们指点!
- 奇怪错误 :a component named *** already exists
- 请教:按下多个键响应事件问题!!
- 大家在试用D2005的时候遇到过webcontrol不显示没有?
- 数据库面存的是 20040001 23:11:15 我只想取前面的日期来和我的变量比量,哪个在前哪个在后?怎么 做?
- 請問一個關於MDIForm的小問題, 在顯等待!
- 如何用SQL命令把表中一个字段的值用该字段的值的前3个字符代替?
- ADO删除一条记录发生异常??
- 请教一个简单的数据库问题,表的配置问题
- 顶层窗口与任务栏
- 如何制作把图片,AVI,FLASH等转换为exe的软件
- 大家帮忙看一下这段代码有什么错误,关于Pchar类型的
这里不是咨询热线, 你2009-04-12 00:59:20来发帖, 是没几个人会来看的。