WinAPI: GetLogicalDrives - 判断系统中存在的逻辑驱动器

//声明:

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;


 
   




//效果图:				

---