Mega Code Archive
Get the current drive letter
<![CDATA[
Title: 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"
]]>