Tips (1541)

Tip Bewertung (8):

// 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"