System Delphi

  1. Home
  2. Delphi
  3. System
  4. Get the current drive letter
// here one simple function that gives default drive without ":\"!
function CurDrv: Char;
var
s1: string;
s2: Char;
begin
GetDir(0,s1);
s2 := s1[1];
CurDrv := s2;
end;
// So if current drive is for example C:\ then function returns "C"