RT
解决方案 »
- 利用TUniQuery、TUniConnection写库出错
- 怎么能快速知道一个控件在哪个面板里?
- devexpress 的过滤器怎么用?在运行时设置?
- 在DELPHI程序中加入背景音乐,MP3的音乐或是FLASH音乐。程序执行时就可以听到给定的MP3音乐,可执行的EXE文件中含有MP3音乐。就像在DELPH
- 关于quickereport的预览界面的汉化。
- 小女子的问题还没完呢,请各位大侠再伸掾手
- 两个TDatetime 类型的变量相减,如何知道相差多少秒?
- delphi用idftp从服务器上取文件,这么判断取的文件是否在占用(被打开,或读写)
- 一个很菜的问题
- 请教如何计算两个日期差多少天的问题!在线等待!!!
- 818你用过的经典软件(工具)
- chart 线条宽度
function DiskFree(Drive: Byte): Int64;
var
TotalSpace: Int64;
begin
if not InternalGetDiskSpace(Drive, TotalSpace, Result) then
Result := -1;
end;function DiskSize(Drive: Byte): Int64;
var
FreeSpace: Int64;
begin
if not InternalGetDiskSpace(Drive, Result, FreeSpace) then
Result := -1;
end;
BOOL GetDiskFreeSpaceEx(
LPCTSTR lpDirectoryName, // pointer to directory name on disk of interest
PULARGE_INTEGER lpFreeBytesAvailableToCaller, // pointer to variable to receive free bytes on disk available to the caller
PULARGE_INTEGER lpTotalNumberOfBytes, // pointer to variable to receive number of bytes on disk
PULARGE_INTEGER lpTotalNumberOfFreeBytes // pointer to variable to receive free bytes on disk
);