Delphi實(shí)現(xiàn)獲取磁盤空間大小的方法
更新時(shí)間：2014年07月24日 11:16:56 投稿：shichen2014
這篇文章主要介紹了Delphi實(shí)現(xiàn)獲取磁盤空間大小的方法,是一個(gè)很實(shí)用的功能,需要的朋友可以參考下
本文所述Delphi實(shí)例用以獲取指定的磁盤空間容量大小，檢測磁盤大小，從combox中選擇磁盤代號等功能。點(diǎn)擊“檢測驅(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í)現(xiàn)圖片滾動切換的完整實(shí)例代碼
這篇文章主要介紹了Delphi實(shí)現(xiàn)圖片滾動切換的完整實(shí)例代碼,通過本實(shí)例，讀者可以進(jìn)一步掌握Delphi控件及圖形處理的技巧,需要的朋友可以參考下2014-07-07
本文通過實(shí)例代碼給大家介紹ListView 百分比進(jìn)度條，本文使用的是delphi語言實(shí)現(xiàn)的，代碼比較簡單實(shí)用，希望的朋友參考下2016-02-02
這篇文章主要介紹了delphi實(shí)現(xiàn)保存和讀取圖片的方法,主要包括了顯示圖片、保存圖片和讀取圖片的實(shí)現(xiàn)方法,是非常實(shí)用的技巧,需要的朋友可以參考下2014-09-09
Delphi實(shí)例演示Rect、Bounds生成TRect的區(qū)別
這篇文章主要介紹了Delphi實(shí)例演示Rect、Bounds生成TRect的區(qū)別,需要的朋友可以參考下2014-07-07
下面小編就為大家?guī)硪黄狣elphi提取PDF文本實(shí)例。小編覺得挺不錯(cuò)的，現(xiàn)在就分享給大家，也給大家做個(gè)參考。一起跟隨小編過來看看吧2017-06-06
這篇文章主要介紹了Delphi下OpenGL2d繪圖之畫點(diǎn)的方法,需要的朋友可以參考下2014-07-07
由Delphi園地整理的Delphi書籍15本常用的參考書籍，需要的朋友可以下載了。2011-12-12
在Delphi實(shí)現(xiàn)在數(shù)據(jù)庫中存取圖像的圖文演示無錯(cuò)
最近打算學(xué)習(xí)Delphi實(shí)現(xiàn)在數(shù)據(jù)庫中存取圖像,網(wǎng)上的好多Delphi實(shí)現(xiàn)在數(shù)據(jù)庫中存取圖像都是錯(cuò)誤的，所以我把圖片給弄好了。2008-01-01
在Delphi中沒有直接正弦曲線的函數(shù)。但是在科學(xué)研究中，正弦曲線的應(yīng)用是非常廣泛的，本實(shí)例介紹如何繪制正弦曲線。2008-03-03
這篇文章主要介紹了Delphi實(shí)現(xiàn)截屏存盤的方法,涉及Delphi圖片操作的相關(guān)技巧,需要的朋友可以參考下2015-05-05