如何将已知的盘符（CDE等）转换成数字用在diskfree,disksize函数中？(50分)

从盘符（string）如何转换成相应的数字？

procedure TForm1.Button1Click(Sender: TObject);
var
DriveString: String;
sec1, byt1, cl1, cl2: LongWord;
Disk_FreeSpace: Int64;
begin
DriveString := 'd:/';
GetDiskFreeSpace(PChar(DriveString), sec1, byt1, cl1, cl2);
Disk_FreeSpace := cl1 * Sec1 * Byt1;
ShowMessage(FormatFloat('#,##', Disk_FreeSpace));
end;

不知道Disksize和DiskFree是什么函数，没有找到，如果转换，可以使用ord
当然，得到的不一定是你需要的。
可以使用Ord(toUpper('c'))-Ord('A')之类的得到2、3什么。

DiskFree/DiskSize是判断磁盘信息的函数
if (achr in ['A'..'Z']) then i:=Ord(achr)-Ord('Á');
if (achr in ['a'..'z']) then i:=Ord(achr)-Ord('a');

多谢