| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Флешка [D7]

Keks ©   (2006-05-06 19:27:00) 

Как определить что к компьютера была подключена флешка

---

Marser   (2006-05-06 20:37:00) [1]

Дальше смотрим в сторону GetDriveType, GetLogicalDrives, GetVolumeInformation

---

Keks   (2006-05-06 20:03:00) [2]

А можно ли получить инфу о подключенной флешке например её название

---

AlexWlad   (2006-05-06 19:30:00) [3]


const DBT_DEVICEARRIVAL = $8000;
const DBT_DEVICEQUERYREMOVE = $8001;
const DBT_DEVICEQUERYREMOVEFAILED = $8002;
const DBT_DEVICEREMOVEPENDING = $8003;
const DBT_DEVICEREMOVECOMPLETE = $8004;
const DBT_DEVICETYPESPECIFIC = $8005;
const DBT_CONFIGCHANGED = $0018;

procedure TForm1.WMDeviceChange(var Message: TMessage);
          var
            s : string;
          begin
          {Do Something here}
            case Message.wParam of
              DBT_DEVICEARRIVAL :
                s := 'A device has been inserted and is now available';
              DBT_DEVICEQUERYREMOVE: begin
                s := 'Permission to remove a device is requested';
                ShowMessage(s);
               {True grants premission}
                Message.Result := integer(true);
                exit;
              end;
              DBT_DEVICEQUERYREMOVEFAILED :
                s := 'Request to remove a device has been canceled';
              DBT_DEVICEREMOVEPENDING :
                s := 'Device is about to be removed';
              DBT_DEVICEREMOVECOMPLETE :
                s := 'Device has been removed';
              DBT_DEVICETYPESPECIFIC :
                s := 'Device-specific event';
              DBT_CONFIGCHANGED :
                s:= 'Current configuration has changed'
              else s := 'Unknown Device Message';
            end;
            ShowMessage(s);
            inherited;
          end;

type
             TForm1 = class(TForm)
               Button1: TButton;
             private
               { Private declarations }
               procedure WMDeviceChange(var Message: TMessage);
                 message WM_DEVICECHANGE;
             public
               { Public declarations }
             end;


(C) не мой, тут ранее пробегало...

---

Наверх