drivecombobox и работа с носителями

[kos1nus]

2 вопроса . . . delphi

1) программа опрашивает все диски из списка drivecombobox находит нужные ей и продолжает работать. так вот, при обращении в кардридеру(флешки в нем нет) выскакивает ошибка. как исправить?

2) drivecombobox загружает все диски работающие на момент запуска программы, если воткнуть флешку во воремя работы программы он ее неувидит. какой функцией можно обновить список дисков?

заранее спасибо

[Stilet]

2)

DriveComboBox1.Refresh пробуй

[kos1nus]

пробовал . . нехочет

[kos1nus]

может в таком случай стоит перезапустить само приложение? ну или форму(незнаю будет ли этого достаточно)??? как лучше сделать?

[Alter]

У компонента есть скрытое свойство, создающее список(однако он недоступен напрямую):

procedure TDriveComboBox.BuildList;
var
  DriveNum: Integer;
  DriveChar: Char;
  DriveType: TDriveType;
  DriveBits: set of 0..25;

  procedure AddDrive(const VolName: string; Obj: TObject);
  begin
    Items.AddObject(Format('%s: %s',[DriveChar, VolName]), Obj);
  end;

begin
  { fill list }
  Clear;
  Integer(DriveBits) := GetLogicalDrives;
  for DriveNum := 0 to 25 do
  begin
    if not (DriveNum in DriveBits) then Continue;
    DriveChar := Char(DriveNum + Ord('a'));
    DriveType := TDriveType(GetDriveType(PChar(DriveChar + ':\')));
    if TextCase = tcUpperCase then
      DriveChar := Upcase(DriveChar);

    case DriveType of
      dtFloppy:   Items.AddObject(DriveChar + ':', FloppyBMP);
      dtFixed:    AddDrive(VolumeID(DriveChar), FixedBMP);
      dtNetwork:  AddDrive(NetworkVolume(DriveChar), NetworkBMP);
      dtCDROM:    AddDrive(VolumeID(DriveChar), CDROMBMP);
      dtRAM:      AddDrive(VolumeID(DriveChar), RAMBMP);
    end;
  end;
end;

Можно ещё так(пересоздавать компонент со всеми событиями):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, FileCtrl;

type
  TForm1 = class(TForm)
    DCB1: TDriveComboBox;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Rect :TRect;
    Win :TWinControl;
begin
 Rect := DCB1.BoundsRect;
 Win := DCB1.Parent;
 DCB1.Free;
 DCB1 := TDriveComboBox.Create(self);
 DCB1.Parent := Win;
 DCB1.BoundsRect := Rect;
 DCB1.Visible := True;
 DCB1.CharCase := ecUpperCase;
 // тут приравниваем обработчики процедур событий компонента
end;

end.

[kos1nus]

воспользовался вторым способом! работает! спасибо за подсказку! а что нибудь по первому вопросу можете подсказать?

[mihali4]

при обращении в кардридеру(флешки в нем нет) выскакивает ошибка. как исправить?

Делать обращение в обертке TRY..EXCEPT.