БОЛЬШОЙ FAQ ПО DELPHI



Проверить готовность диска без появления окна ошибки Windows


Игра "О счастливчик" Игрок - Прошу убрать два неверных варианта. Ведущий - Итак, дорогой компютер, уберите пожалуста два неверных варианта. Надпись на мониторах - "Программа выполнила недопустимую ошибку и будет закрыта" Ведущий - Что-ж по просьбе компании Microsoft - реклама....

Вы можете использовать функцию Windows API SetErrorMode() для отключения диалога Window's critical Error.

Сначала определяем нужную функцию:


 function IsDriveReady(DriveLetter: char): bool;
 var
   OldErrorMode: Word;
   OldDirectory: string;
 begin
   OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
   GetDir(0, OldDirectory);
   {$I-}
   ChDir(DriveLetter + ':\');
   {$I+}
   if IoResult <> 0 then
     Result := False
   else
     Result := True;
 
   ChDir(OldDirectory);
   SetErrorMode(OldErrorMode);
 end;
 

затем используем её:


 if not IsDriveReady('A') then
   ShowMessage('Drive Not Ready')
 else
   ShowMessage('Drive is Ready');
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ