Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.21;
Скачать: CL | DM;

Вниз

TDriveComboBox   Найти похожие ветки 

 
Грифон ©   (2001-12-29 09:43) [0]

При выборе сменного диска, которого нет в устройстве, вылетает сообщение "I/O error" Помогите мне его перехватить и вывести свой мессадж.


 
SergVlad ©   (2001-12-29 09:53) [1]

Вот так..

procedure TAutoForm.btnCheckClick(Sender: TObject);
var
ErrorMode: word;
begin
ErrorMode := SetErrorMode(SEM_FAILCRITICALERRORS);
try
if DiskSize(1) = - 1 then
ShowMessage( "No disk in drive A" )
else
begin
{ Your code }
end;
finally
SetErrorMode(ErrorMode);
end;
end;


 
panov ©   (2001-12-29 10:00) [2]

(из конференции):
Перед проверкой наличия диска:
{$I-}
и обрабатывай ошибку.
//после проверки
{$I+}



 
Грифон ©   (2001-12-29 19:24) [3]

Так, а если в TDriveComboBox есть выбор между "A" и несколькими СВ-Rom"ами, то как выяснить что выбрал юзер и после выдать соответствующее сообщение. Пытался в обработке OnClick сделать TDriveComboBox.Drive - но он определяет текущий диск, а не тот который пытаемся выбрать, помогите, плз.


 
SergVlad ©   (2001-12-29 22:58) [4]

Ну и в чем проблема ?
Используй приведенный код в обработчике OnChange.
В DiskSize(..) указывай число
0 - текущий
1- A
2- B
и т.д.
получая его из DriveCbx.Drive


 
Грифон ©   (2002-01-02 17:24) [5]

В том-то и дело, что до обработчика OnChange уже происходит ошибка.



Страницы: 1 вся ветка

Текущий архив: 2002.01.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.009 c
4-66406
hn
2001-11-14 19:13
2002.01.21
ссылка на Edit, как получить текст, если он в веден в него


6-66316
ant_prg
2001-10-26 15:50
2002.01.21
Передача звука по сети


1-66263
Анатолий
2002-01-01 03:51
2002.01.21
выполнение модуля


1-66255
net_phoenix
2002-01-03 19:51
2002.01.21
COM обьекты Использование серверов для связи с MS OFFICE програмами


4-66410
Moscower
2001-11-16 16:13
2002.01.21
Помогите найти ошибку