随笔 - 2146  文章 - 19 评论 - 11846 阅读 - 1266万

//声明:
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;

//效果图:

posted on   万一  阅读(4209)  评论(1编辑  收藏  举报


点击右上角即可分享
微信分享提示