Как обновить список дисков компонента TDriveComboBox, учитывая, что могуд быть подключены/отключены сетевые диски и произведена "горячая замена" plug&play дисков?

Вопрос:

Как обновить список дисков компонента TDriveComboBox, учитывая, что могуд быть подключены/отключены сетевые диски и произведена "горячая замена" plug&play дисков?

Ответ:

Следующий пример вызывает защищенный (protected) метод класса TDriveComboBox BuildList() для регеирации списка дисков. (использовая так наз. "class cracer")

Пример:

type
  TNewDriveComboBox = class(TDriveComboBox)  //это наш "class cracer"
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Drive : char;
begin
  Drive := DriveComboBox1.Drive;
  TNewDriveComboBox(DriveComboBox1).BuildList;  
      //вызываем защищенный метод родительского класса
  DriveComboBox1.Drive := Drive;
end;