如何获得网络共享所在盘的剩余空间大小?
解决方案 »
- 我的DBF数据库里已有13万条记录了,再追加很慢,如何解决?
- 怎么截获 Windows的API函数EnumJobs(获取打印作业信息)中的信息,并保存下来?
- 纯VCL数据库引擎FireDBV1.01
- CommandText Cann't Changed?
- 问一个关于将Access数据库中的数据导入excel表的问题
- 菜鸟问题,懂Delphi的请进来!!!
- 关于类型转换的小问题
- 如何让delphi 的record采用8字节对起方式?
- 有关Flash文件播放
- 又谁能解释一下create的参数呢?
- 为什么从记事本复制到IDE时,记事本中的汉字到了IDE里都变成了问号?我的电脑出了什么问题。
- 如何更改网络连接中”本地连接“的名称那?比如改这个连接的名称为mylan?
delphi: diskfreeprocedure TForm1.Button1Click(Sender: TObject);
var
dirname:pchar;
FreeAvailable,TotalSpace:TLargeInteger;
TotalFree: PLargeInteger;
begin
dirname:=pchar(edit1.text);
getmem(totalfree,100);
try
if GetDiskFreeSpaceEx(dirname,FreeAvailable,TotalSpace,totalfree)<>false then
edit2.text:=inttostr(FreeAvailable);
finally
freemem(totalfree);
end;
end;