Новые пользователи
Активные пользователи
[ Новые сообщения · Участники· Правила форума · Поиск · RSS ]
Страница 1 из 11
Архив - только для чтения
Форум » Программирование на Delphi » Готовые решения » Как проверить доступность диска без ошибки "DRIVE NOT READY" (Проверяем доступность диска или наличие диска в дисководе)
Как проверить доступность диска без ошибки "DRIVE NOT READY"
PWorkДата: Вторник, 30.01.2018, 00:50 | Сообщение # 1
Группа: Администраторы
Сообщений: 15
Статус: Offline
Часто бывает нужно проверить, доступен ли диск, чтобы при запичи или чтении избежать ошибки "Drive not ready". В сети много примеров на эту тему. Самый правильный и рабочий - здесь.


Код
function IsDriveReady(DriveLetter:string):Boolean;
var
  Tmp1, Tmp2, Tmp3:DWORD;
begin
  Result:=GetVolumeInformation(PChar(DriveLetter), nil, Tmp1, nil, Tmp2, Tmp3, nil, 0);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if IsDriveReady('D:\') then
  ShowMessage('');
end;
Форум » Программирование на Delphi » Готовые решения » Как проверить доступность диска без ошибки "DRIVE NOT READY" (Проверяем доступность диска или наличие диска в дисководе)
Страница 1 из 11
Поиск:
X

Внимание!

Ваш браузер уязвим для рекламы. Установите AdBlock Plus! https://adblockPlus.org

uCoz