Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Как проверить готовность диска без появления окна ошибки 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; 

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru