Mega Code Archive

 

Categories / Delphi / Hardware

 

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;