تابعی برای بدست آوردن میزان فضای خالی دیسک

function GetDiskFreeSpace(DriveLetter : String): Int64;
var
    sgDrive : String;
    pcDrive : PChar;
    chDrive : Char;
    inDrive : Int64;
begin
    sgDrive := Trim(DriveLetter);
    sgDrive := Copy(sgDrive,1,1);
    sgDrive := UpperCase(sgDrive);
    pcDrive := PChar(sgDrive);
    chDrive := pcDrive[0];
    inDrive := Ord(chDrive)-64;
    if inDrive < 0 Then inDrive := 0;
    Result := DiskFree(inDrive);
end;