Форум: "Начинающим";
Текущий архив: 2010.09.19;
Скачать: [xml.tar.bz2];

Вниз

Засечь вставку флешки   Найти похожие ветки 

← →
brother ©   (2010-06-21 12:23) [9]

вот кусок из моих тестов для работы с флешкой:
...
const
 DBT_DEVICEARRIVAL         = $8000;      // system detected a new device
 DBT_DEVICEREMOVECOMPLETE  = $8004;      // device is gone
...
TForm1 = class(TForm)
...
 private
...
   procedure WndProc(var Msg:TMessage); override;
 public
...
 end;

...

procedure TForm1.WndProc(var Msg:TMessage);
begin
 if Msg.Msg = WM_DEVICECHANGE then begin
   if (Msg.wParam = DBT_DEVICEARRIVAL) then
   begin
// устройство подключено
   end;
   if (Msg.wParam = DBT_DEVICEREMOVECOMPLETE) then
   begin
// устройство отключено
   end;
   end;
 inherited
end;
...
зы пойдет?

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2010.09.19;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.007 c