//声明:

　　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;