Freien Speicher auf dem aktuellen Datenträger ermitteln

[EDatabaseError]

OK...

Delphi-Quellcode:

function GetDiskSize(drive: Char; var free_size, total_size: Int64): Boolean; 
var 
RootPath: array[0..4] of Char; 
RootPtr: PChar; 
current_dir: string; 
begin 
RootPath[0] := Drive; 
RootPath[1] := ':'; 
RootPath[2] := '\'; 
RootPath[3] := #0; 
RootPtr := RootPath; 
current_dir := GetCurrentDir; 
if SetCurrentDir(drive + ':\') then 
begin 
GetDiskFreeSpaceEx(RootPtr, Free_size, Total_size, nil); 
SetCurrentDir(current_dir); 
Result := True; 
end 
else 
begin 
Result := False; 
Free_size := -1; 
Total_size := -1; 
end; 
end;

procedure TForm1.Button1Click(Sender: TObject); 
var 
free_size, total_size: Int64; 
begin 
if GetDiskSize(laufwerksbuchstabe, free_size, total_size) then 
ShowMessage('free space =' + 
IntToStr(free_size) + #13 + 'total size=' + 
IntToStr(total_size)) 
else 
ShowMessage('Keine Disk im Laufwerk!'); 
end; 
end;

Aber wie frag ich das vom aktuellen Laufwerk? In GetDir kann man 0 angeben. Aber wie mach ich es hier, hier muss ich ja einen Laufwerksbuchstaben angeben wie C oder D???