Delphi-Help

Главная Статьи Флеш-карты Реакция на флешку

Реакция на флешку

Оцените материал
(2 голосов)


Реакция на флешку

Исходник:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
P_DEV_BROADCAST_HDR = ^T_DEV_BROADCAST_HDR;
T_DEV_BROADCAST_HDR = packed record
    dbch_size :DWORD;
    dbch_devicetype :DWORD;
    dbch_reserved :DWORD;
    end;
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.WMDeviceChange(var Msg: TMessage);
var pDBT:P_DEV_BROADCAST_HDR;
begin
case Msg.WParam of
        $8000:
        begin
        //showmessage('Enter');
        pDBT := Pointer(Msg.LParam);
        if pDBT<>nil then
        if (pDBT^.dbch_devicetype=$00000002) then begin
//проверка на тип устройства если флешка то
        showmessage('Воткнули флешку');
        end;
        end;
        $8004:
        showmessage('Вынули флешку');
        end;
 
end;
 
end.
Прочитано 3283 раз

Авторизация



Счетчики