//声明:GetLogicalDrives: DWORD; {无参数}//返回值:返回值的二进制右边第一位为 1 表示驱动器 A: 存在;返回值的二进制右边第二位为 1 表示驱动器 B: 存在...以次类推.//举例:procedure TForm1.FormCreate(Sender: TObject);var  Drives: DWord;  i: Integer;begin  Drives := GetLogicalDrives;  Memo1.Clear;  for i := 0 to 25 do {最多 26 个字母都用上}    if LongBool(Drives and ($0001 shl i)) = True then      Memo1.Lines.Add(Char(Ord('A')+i) + ':\');end;         //效果图: