Текущий архив: 2006.05.21;
Скачать: CL | DM;

Вниз

Флешка   Найти похожие ветки 

← →
Keks ©   (2006-05-06 19:27) [0]

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

---

← →
AlexWlad ©   (2006-05-06 19:30) [1]


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) не мой, тут ранее пробегало...

---

← →
Keks ©   (2006-05-06 20:03) [2]

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

---

← →
Marser ©   (2006-05-06 20:37) [3]

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

---

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

Текущий архив: 2006.05.21;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.05 c