Mega Code Archive
How can i get disk free space
<![CDATA[
Title: How can i get disk free space?
Question: How can i get disk free space?
Answer:
function GetDiskFree(Drive: char): int64;
{ func to return the free space of a drive in bytes. }
var
{$IFDEF Delphi3Below}
lpFreeBytesAvailableToCaller,
lpTotalNumberOfBytes,
lpTotalNumberOfFreeBytes : comp;
{$ELSE}
lpFreeBytesAvailableToCaller,
lpTotalNumberOfBytes,
lpTotalNumberOfFreeBytes : TLargeInteger;
{$ENDIF}
begin
if GetDiskFreeSpaceEx(PChar(Drive + ':\'), lpFreeBytesAvailableToCaller,
lpTotalNumberOfBytes, @lpTotalNumberOfFreeBytes) then
Result := lpTotalNumberOfFreeBytes
else
Result := -1;
end;
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
ShowMessage('a:'+IntToStr(GetDiskFree('a')));
ShowMessage('c:'+IntToStr(GetDiskFree('c')));
end;
]]>