Delphi實現(xiàn)獲取磁盤空間大小的方法
本文所述Delphi實例用以獲取指定的磁盤空間容量大小,檢測磁盤大小,從combox中選擇磁盤代號等功能。點擊“檢測驅(qū)動器”容量信息的按鈕,就可以在下邊顯示出該磁盤的總空間大小以及要用容量的大小。讀者可根據(jù)需求添加對應(yīng)的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);//要顯示的驅(qū)動器名 GetDiskFreeSpace(driver, sec1, byt1, cl1, cl2); cl1 := cl1*sec1 * byt1; cl2 := cl2*sec1 * byt1; Label1.Caption:= '該驅(qū)動器總共容量' + Formatfloat('###,##0',cl2) + '字節(jié)'; Label2.Caption := '該驅(qū)動器可用容量' + Formatfloat('###,##0',cl1) + '字節(jié)'; end; end.
相關(guān)文章
delphi設(shè)置開機(jī)自動啟動函數(shù)具體實現(xiàn)
有些程序要設(shè)置為開機(jī)啟動,所以自己寫了個函數(shù)方便以后使用,實現(xiàn)比較簡單,感興趣的朋友可以參考下哈2013-06-06Delphi創(chuàng)建開機(jī)啟動項的方法示例
這篇文章主要介紹了Delphi創(chuàng)建開機(jī)啟動項的方法,很有實用價值,需要的朋友可以參考下2014-07-07Delphi實現(xiàn)獲取句柄并發(fā)送消息的方法
這篇文章主要介紹了Delphi實現(xiàn)獲取句柄并發(fā)送消息的方法,需要的朋友可以參考下2014-07-07Delphi實現(xiàn)獲取進(jìn)程列表及相關(guān)信息的實例
這篇文章主要介紹了Delphi實現(xiàn)獲取進(jìn)程列表及相關(guān)信息的實例,希望通過本文大家能實現(xiàn)這樣的功能,需要的朋友可以參考下2017-09-09Delphi實現(xiàn)窗體感知鼠標(biāo)滑過并自動隱藏與顯示窗口的方法
這篇文章主要介紹了Delphi實現(xiàn)窗體感知鼠標(biāo)滑過并自動隱藏與顯示窗口的方法,涉及Delphi操作窗口及鼠標(biāo)事件的技巧,需要的朋友可以參考下2015-05-05Delphi之Pascal語言中的關(guān)鍵字及保留字匯總
這篇文章主要介紹了Delphi之Pascal語言中的關(guān)鍵字及保留字匯總,需要的朋友可以參考下2014-07-07Delphi 根據(jù)字符串找到函數(shù)并執(zhí)行的實例
這篇文章主要介紹了Delphi 根據(jù)字符串找到函數(shù)并執(zhí)行的實例的相關(guān)資料,希望通過本能幫助到大家實現(xiàn)這樣的功能,需要的朋友可以參考下2017-09-09