Главная страницаОбратная связьКарта сайта

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

Вы можете использовать функцию 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");


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация по разработке на Delph - "Проверить готовность диска без появления окна ошибки Windows", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2024 Дискета.info