?? 驅動器的容量和剩余容量 (2001年4月23日).txt
字號:
驅動器的容量和剩余容量 (2001年4月23日)
網(wǎng)友更新 分類:數(shù)據(jù)庫 作者: zhuhongqing(推薦) 推薦:zhuhongqing 閱讀次數(shù):173
(http://www.codesky.net)
--------------------------------------------------------------------------------
要得到驅動器的容量和剩余容量,用下面的程序
var
driver:pchar;
sec1, byt1, cl1, cl2:longword;
begin
driver:='c:\';//要顯示的驅動器名
GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2);
cl1 := cl1 * sec1 * byt1;
cl2 := cl2 * sec1 * byt1;
Label1.Caption := '該驅動器總共容量' + Formatfloat('###,##0',cl2) + '字節(jié)';
Label2.Caption := '該驅動器可用容量' + Formatfloat('###,##0',cl1) + '字節(jié)';
end;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -