Hardware Delphi

  1. Home
  2. Delphi
  3. Hardware
  4. How to get the current drive letter
Title: How to get the current drive letter
function CurDrv: Char;
var
s1: string;
s2: Char;
begin
GetDir(0,s1);
s2 := s1[1];
CurDrv := s2;
end;