TDriveComboBoxでI/Oエラーを回避するには？

解決

Kawagoe 2004-02-25 23:29:56 No: 7349

はじめまして、川越と申します。

TDriveComboBox、TDirectoryListBox、TFileListBox
この3つのコンポーネントを使用して、選択されたフォルダの中のファイル
を表示するようにしています。
その際に、参照できないドライブ（CD-Rドライブや、接続されていない
ネットワークドライブ）を選択すると、「I/Oエラー」というダイアログ
ボックスが表示されます。
try〜exceptで回避しようとしたのですが、Try文に来る前にエラーが表示
されていまい、うまくいきませんでした。

どなたかアドバイスいただけないでしょうか。
よろしくお願いします。

masayan 2004-02-26 23:39:34 No: 7350

あまり適切ではないかもしれませんが、TApplicationEventsを追加してOnExceptionイベントを

procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
  E: Exception);
var
  n : Integer;
begin
  if E is EInOutError then
    n := IOResult; // IOエラーコードを取得してエラーをクリア
end;

てな感じでとりあえずI/Oエラーは出なくなると思います。
詳しくは検証していないのですが参考までに...

kawagoe 2004-02-27 01:42:10 No: 7351

masayanさん

アドバイスありがとうございます。

さっそく試させてもらったところ、無事にI/Oエラーが出なくなりました。

ありがとうございましたｍ(＿)ｍ