Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Вниз

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 уже происходит ошибка.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.21;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.011 c
1-66266           !Новичоккккк          2002-01-03 22:23  2002.01.21  
ПОМОГИТЕ!


1-66298           Sheva                 2002-01-03 11:57  2002.01.21  
SpeedButton.


4-66413           cit5                  2001-11-19 08:20  2002.01.21  
Обовление экрана


1-66293           BFG                   2002-01-04 21:18  2002.01.21  
Mortal Combat 4


14-66350          Феликс                2001-11-24 00:31  2002.01.21  
Помогите сделать такой скрипт