VPF::Поиск доступных дисков - Форум программистов

Сашок

Дата 11.12.2008, 20:26 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 27.6.2008

Репутация: нет
Всего: нет

Вот то что у меня получилось:

Код


Begin
 DList:=nil;
 for i:=97 to 122 do
 Begin
  s:=chr(i)+':\*.*';
  FindFirst(s,AnyFile,DirInfo);
  If (DosError<>3) and (DosError<>152) and (chr(i)<>'a') then
  Begin
   p:=DList;
   if p=nil then
   begin
    new(DList);
    DList^.Disk:=chr(i)+':\';
    DList^.next:=nil;
   end else
   begin
    while p^.next<>nil do p:=p^.next;
    new(z);
    z^.next:=nil;
    z^.Disk:=chr(i)+':\';
    p^.next:=z;
   end;
  end;
 end;
end;

Этот кусок кода создает список из дисков, которые в данный момент доступны. Проблема в том, что дисковод при отсутствии в нём дискеты иногда определяется как доступный. Поэтому пришлось диск а выкинуть ифом. Как этого избежать?

volvo877

Дата 11.12.2008, 23:06 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

А что, использовать функцию DiskSize из модуля DOS - слишком просто?

Сашок

Дата 12.12.2008, 14:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 27.6.2008

Репутация: нет
Всего: нет

Видимо, да) Спасибо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »