GetLogicalDrives-判斷系統(tǒng)中存在的邏輯驅(qū)動(dòng)器

//聲明:GetLogicalDrives: DWORD; {無參數(shù)}
    //返回值:
    返回值的二進(jìn)制右邊第一位為 1 表示驅(qū)動(dòng)器 A: 存在;
    返回值的二進(jìn)制右邊第二位為 1 表示驅(qū)動(dòng)器 B: 存在...以次類推.//舉例:procedure TForm1.FormCreate(Sender: TObject);
    var
    Drives: DWord;
    i: Integer;
    begin
    Drives := GetLogicalDrives;
    Memo1.Clear;
    for i := 0 to 25 do {最多 26 個(gè)字母都用上}
    if LongBool(Drives and ($0001 shl i)) = True then
    Memo1.Lines.Add(Char(Ord('A')+i) + ':');
    end;//效果圖: