var
  ld: DWORD;
  i: integer;
begin
  ld := GetLogicalDrives;
  for i := 0 to 25 do begin
    if (ld and (1 shl i)) <> 0 then
      ShowMessage(Char(Ord('A')   i)   ':\');
  end;
end;