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

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

На некоторых 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 для автоматического удаления таких дисков.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

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

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

Время компиляции файла: 2024-12-22 17:14:06
2025-10-31 04:33:17/0.0089550018310547/0