Можно ли удалять из списка 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.

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

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

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

20.04.2024 18:48:32/0.0031599998474121/2