Взято с форума Cyberforum
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
Function GetDisks():TStringlist; var i:Char; begin Result:=TStringlist.Create; for i := 'A' to 'Z' do begin if (GetDriveType(PChar(i+':\'))<>1) and (GetDriveType(PChar(i+':\'))<>0) then result.Add(i+':\'); end; end; |