Delphi實現獲取磁碟空間大小的方法

本文所述delphi例項用以獲取指定的磁碟空間容量大小，檢測磁碟大小，從combox中選擇磁碟代號等功能。點選「檢測驅動器」容量資訊的按鈕，就可以在下邊顯示出該磁碟的總空間大小以及要用容量的大小。讀者可根據需求新增對應的button與label控制項。

主要程式**如下所示：

unit unit1;

inte***ce

uses

windows, messages, sysutils, classes, graphics, controls, forms, dialogs,

stdctrls;

type

tform1 = class(tform)

edit1: tedit;

button1: tbutton;

jlslttuwahlabel1: tlabel;

label2: tlabel;

procedure button1click(sender: tobject);

private

public

end;

var form1: tform1;

implementation

proc程式設計客棧edure tform1.button1click(sender: tobject);

var driver:pchar;

sec1, byt1, cl1, cl2:longword;

begin

driver:=pc程式設計客棧har(edit1.text);//要顯示的驅動器名

getdiskfreespace(driver, sec1, byt1, cl1, cl2);

cwww.cppcns.coml1 := cl1*sec1 * byt1;

cl2 := cl2*sec1 * byt1;

label1.caption:= '該驅動器總共容量' + formatfloat('###,##0',cl2) + '位元組';

l程式設計客棧abel2.caption := '該驅動器可用容量' + formatfloat('###,##0',cl1) + '位元組';

end;

end.

本文標題: delphi實現獲取磁碟空間大小的方法

本文位址:

磁碟空間大清理

通過以下的方法，成功清理了各種快取，獲得了近20g的空間 移除對舊裝置的支援 影響 可重新生成 再連線舊裝置除錯時，會重新自動生成。路徑 library developer xcode ios devicesupport 釋放空間 10gb 移除對模擬器的資料 一堆模擬器的資料。每個資料夾裡包含的就...

Xcode磁碟空間大清理

影響 可重新生成 再連線舊裝置除錯時，會重新自動生成。我移除了4.3.2,5.0,5.1等版本的裝置支援。路徑 library developer xcode ios devicesupport 釋放空間 3gb 釋放空間 3gb 影響 可重新生成 如果需要保留較新版本的模擬器，但tmp資料夾很大。...

Xcode磁碟空間大清理

我的裝置是macbook air 13 mid 2011，128g ssd。最近開始有些儲存壓力了，用clean my mac清理一部分舊檔案後，決定對xcode動手。影響 可重新生成 再連線舊裝置除錯時，會重新自動生成。我移除了4.3.2,5.0,5.1等版本的裝置支援。路徑 library de...