Как проверить готовность диска без появления окна ошибки Windows?
Как проверить готовность диска без появления окна ошибки Windows?
Как проверить готовность диска без появления окна ошибки 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; procedure TForm1.Button1Click(Sender: TObject); begin if not IsDriveReady('A') then ShowMessage('Drive Not Ready') else ShowMessage('Drive is Ready'); end;
