Проверить готовность диска без появления окна ошибки 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;
затем используем её:
ifnot IsDriveReady('A') then
ShowMessage('Drive Not Ready')
else
ShowMessage('Drive is Ready');
В статье описывается способ проверки готовности диска в Windows без вывода ошибочного диалога, используя функцию SetErrorMode() и написанный на языке Pascal код для отключения ошибок и проверки доступности дискеты.
