delphi - как обработать ошибку перехода на пустой cd-rom?

[yourself]

Проблема такая: перетащил из палитры компонентов Win 3.1 следующие: FileListBox, DirectoryListBox, DriveComboBox, Label и Edit. Все связал между собой, все прекрасно работает, пока в запущенной программе не выбираю из DriveComboBox диск e - дисковод cd/dvd. Если в нем нет диска, то программа выдает ошибку ввода-вывода #21 и вылетает. Какое событие нужно обработать, чтоб не позволить программе самовольно прерываться?

[Костя КС]

можно проверить готов ли диск через функцию

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('E') = true then //диск Е
ShowMessage('Drive Not Ready') else
ShowMessage('Drive is Ready');
end;
end.

и сделай так, чтобы программа не выполнялась, если Drive Not Ready

[Костя КС]

Вот, я сделал бы так. при выборе диска, если он доступен - то он открывается.

uses ShellApi;

var
i : integer;

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;


uses ShellApi;

var
i : integer;

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.FormCreate(Sender: TObject);
begin
i :=0;
end;

procedure TForm1.DriveComboBox1Change(Sender: TObject);
begin
i :=i+1;
if (i mod 2)<>0 then
begin
if not IsDriveReady(form1.DriveComboBox1.Drive) then
ShowMessage('Drive Not Ready')
else
begin
 ShellExecute(0,'explore', Pchar(form1.DriveComboBox1.Drive +':\'), nil, nil, SW_SHOWNORMAL);
end;
end;
end;
end.

по неизвестной мне причине у меня событие DriveComboBox1Change выполняется два раза подряд.
по этому я там if (i mod 2)<>0 then приписал, чтобы через раз выполнялось.

У меня работает, надеюсь помог... хотя наверняка есть способ проще