|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Проверка наличия диска
Добрый день!
Возник вопрос. Как проверить наличие диска. Пробовал: Код:
function Disk(Drive : Char) : Boolean; begin Drive := UpperCase(Drive); Result := DiskSize(ord(Drive) - $40) <> -1; end; Кнопка "+" - весы в правом верхнем углу сообщения... |
#2
|
||||
|
||||
Попробуй так...
Код:
function Disk(Drive : Char) : Boolean; begin try Drive := UpperCase(Drive); Result := DiskSize(ord(Drive) - $40) <> -1; except Result := false; end; В начале был Бит, потом Байт и только потом появилось Слово... |
#3
|
||||
|
||||
Вот тут попробуй почитать. В принципе тоже самое, но есть еще мысли.
Некоторые программисты настолько ленивы, что сразу пишут рабочий код. Если вас наказали ни за что - радуйтесь: вы ни в чем не виноваты. |
#4
|
||||
|
||||
Цитата:
Кнопка "+" - весы в правом верхнем углу сообщения... |
#5
|
||||
|
||||
А ты не пробовал открыть дисковод и проверить!
На мой взгляд это самый простой и действенный способ проверки наличия диска в дисководе!! если не знаешь как открыть отвечу: ищи кнопку на дисководе и вот чудо! Проверка есть диск? да врубай прогу нет вставьте диск в сидиром если кнопки нет ищи дома фомку и открывай дисковод в ручном режиме Последний раз редактировалось CTAJLUH, 20.01.2010 в 23:19. |