//声明: 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;
//效果图:
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步