+- Parsi Coders (http://parsicoders.com)
+-- انجمن: Software Development Programming (http://parsicoders.com/forumdisplay.php?fid=37)
+--- انجمن: Pascal/Delphi (http://parsicoders.com/forumdisplay.php?fid=45)
+---- انجمن: Delphi (http://parsicoders.com/forumdisplay.php?fid=69)
+---- موضوع: سورس کد بدست اوردن فضای خلی پارتیشن(دلفی) (/showthread.php?tid=2162)
سورس کد بدست اوردن فضای خلی پارتیشن(دلفی) - Amin_Mansouri - 04-23-2012
با سورس میتونید با وارد کردن درایو مورد نظر فضای خالیش رو بدست بیارید برای سورس زیر احتیاج هست از یونیت SysUtils استفاده کنید.
سورس کد :
کد:
function DiskSpaceInfo(const Drive: string; out AvailBytes, TotalBytes,
FreeBytes: Int64): Boolean;
begin
// We use GetDiskFreeSpaceEx from SysUtils since it deals with OSs that do not
// support the Windows GetDiskFreeSpaceEx API call
Result := SysUtils.GetDiskFreeSpaceEx(
PChar(Drive), AvailBytes, TotalBytes, @FreeBytes
);
if not Result then
begin
AvailBytes := 0;
TotalBytes := 0;
FreeBytes := 0;
end;
end;