-----------------------------------------------------------------------
            "Delphi X-Files" <www.DelphiXFiles.narod.ru>"
                   "Определения физических дисков"
-----------------------------------------------------------------------
function GetFixedDrives: String;
var
   r: Integer;
   buf: Array[0..4] of Char;
begin
   Result:='';
   for r:=Integer('A') to Integer('Z') do
   begin
        StrPCopy(@buf,Char(r)+':\');
        if (GetDriveType(@buf)=DRIVE_FIXED) then
            Result:=Result+Char(r);
   end;
end;
-----------------------------------------------------------------------