...get the current drive letter?

Author: Veiko
Homepage: http://www.zone.ee/arlessoft

Category: System

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

 

printed from
www.swissdelphicenter.ch
developers knowledge base