Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Можно ли удалять из списка TDriveComboBox диски которые отключены?

Delphi , ОС и Железо , Диски

Можно ли удалять из списка TDriveComboBox диски которые отключены?

На некоторых laptop компьютерах может не быть флоппи дисковода. Можно ли удалять из списка TDriveComboBox диски которые отключены?

В примере TDriveComboBox не показывает дисководы, которые не готовы. (not ready). Учтите что на многих компьютерах будет ощутимая задержка при поверке plug&play флоппи дисковода.

Code:

procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
OldErrorMode: Word;
OldDirectory: string;
begin
OldErrorMode := SetErrorMode(SEM_NOOPENFILEERRORBOX);
GetDir(0, OldDirectory);
i := 0;
while i <= DriveComboBox1.Items.Count - 1 do
   begin
{$I-}
     ChDir(DriveComboBox1.Items[i][1] + ':\');
{$I+}
     if IoResult <> 0 then
       DriveComboBox1.Items.Delete(i)
     else
       inc(i);
   end;
ChDir(OldDirectory);
SetErrorMode(OldErrorMode);
end;

Статья Можно ли удалять из списка TDriveComboBox диски которые отключены? раздела ОС и Железо Диски может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Диски ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
25.01.2020 02:41:33/0.3882200717926/0