| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Проблема с {$I-} {$I+} [WinXP]

Eraser ©   (2006-05-23 19:54:00) 

Добрый вечер.
Столкнулся с такой проблемой, что нужно проверить, доступен ли диск A (floppy), при этом не показывая пользователю системное окошко "В устройстве нет диска."

Как только не мучался, но это окошко всё равно появляется.
Вот специально тестовый пример сделал.

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls;

type
 TForm1 = class(TForm)
   Button1: TButton;
   procedure Button1Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 {$I-}
 ChDir('a:\');
 {$I+}
end;

end.

всё равно сообщение об ошибке выдаёт. В опциях компилятора отключал проверку I/O - ноль эффекта.

Как быть? Может кто сталкивался с такой проблемой?

PS Windows XP SP2, BDS 2006 SP1.

Спасибо.

---

icWasya   (2006-05-24 09:10:00) [1]


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

---

Eraser   (2006-05-23 20:02:00) [2]

> MBo ©   (23.05.06 19:58) [2]
>
> SetErrorMode

Спасибо огромное! То что нужно!

---

begin...end   (2006-05-23 20:01:00) [3]

SetErrorMode(SEM_FAILCRITICALERRORS)

---

MBo   (2006-05-23 19:58:00) [4]

SetErrorMode

---

Eraser   (2006-05-23 19:56:00) [5]

Кстати при работе через делфевский отладчик окно об ошибке не появляется.

---

Наверх