Delphi實現(xiàn)獲取磁盤空間大小的方法
更新時間：2014年07月24日 11:16:56 投稿：shichen2014
這篇文章主要介紹了Delphi實現(xiàn)獲取磁盤空間大小的方法,是一個很實用的功能,需要的朋友可以參考下
本文所述Delphi實例用以獲取指定的磁盤空間容量大小，檢測磁盤大小，從combox中選擇磁盤代號等功能。點擊“檢測驅動器”容量信息的按鈕，就可以在下邊顯示出該磁盤的總空間大小以及要用容量的大小。讀者可根據(jù)需求添加對應的Button與label控件。
主要程序代碼如下所示：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
driver:pchar;
sec1, byt1, cl1, cl2:longword;
begin
driver:=pchar(edit1.text);//要顯示的驅動器名
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;
end.
相關文章
delphi設置開機自動啟動函數(shù)具體實現(xiàn)
有些程序要設置為開機啟動，所以自己寫了個函數(shù)方便以后使用，實現(xiàn)比較簡單，感興趣的朋友可以參考下哈2013-06-06
這篇文章主要介紹了Delphi實現(xiàn)木馬文件傳輸?shù)姆椒?對于了解木馬的運行原理有一定的幫助,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi創(chuàng)建開機啟動項的方法,很有實用價值,需要的朋友可以參考下2014-07-07
Delphi實現(xiàn)獲取句柄并發(fā)送消息的方法
這篇文章主要介紹了Delphi實現(xiàn)獲取句柄并發(fā)送消息的方法,需要的朋友可以參考下2014-07-07
這篇文章主要介紹了Delphi實現(xiàn)獲取進程列表及相關信息的實例,希望通過本文大家能實現(xiàn)這樣的功能，需要的朋友可以參考下2017-09-09
這篇文章主要介紹了Delphi實現(xiàn)木馬自我拷貝方法,對于研究木馬的運行原理很有幫助,需要的朋友可以參考下2014-07-07
在Delphi中沒有直接正弦曲線的函數(shù)。但是在科學研究中，正弦曲線的應用是非常廣泛的，本實例介紹如何繪制正弦曲線。2008-03-03
Delphi實現(xiàn)窗體感知鼠標滑過并自動隱藏與顯示窗口的方法
這篇文章主要介紹了Delphi實現(xiàn)窗體感知鼠標滑過并自動隱藏與顯示窗口的方法,涉及Delphi操作窗口及鼠標事件的技巧,需要的朋友可以參考下2015-05-05
這篇文章主要介紹了Delphi之Pascal語言中的關鍵字及保留字匯總,需要的朋友可以參考下2014-07-07
Delphi 根據(jù)字符串找到函數(shù)并執(zhí)行的實例
這篇文章主要介紹了Delphi 根據(jù)字符串找到函數(shù)并執(zhí)行的實例的相關資料,希望通過本能幫助到大家實現(xiàn)這樣的功能，需要的朋友可以參考下2017-09-09