Обработчик событий

@ro0t · Регистрация: 13.02.2011

Author24 — интернет-сервис помощи студентам

Как создать событие на вставку флешки(или другого устройства)в usb?

@Zaxelf · 12.04.2011, 04:19

Delphi

  private
  procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
/////////////.....
implementation
/////////////....
  procedure TForm1.WMDeviceChange(var Msg: TMessage);
  begin
  ShowMessage('Мне что-то вставили!');
  end;

@vallerik · 12.04.2011, 14:16

Сообщение от Zaxelf

private
procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
/////////////.....
implementation
/////////////....

Я немного не понял а это куда прописать ???

@ro0t · 12.04.2011, 14:33 **[ТС]**

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
type
  TForm1 = class(TForm)
  private
    procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE;
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
procedure TForm1.WMDeviceChange(var Msg: TMessage);
  begin
  ShowMessage('Мне что-то вставили!');
  end;
end.

@vallerik · 12.04.2011, 14:35

ro0t, Теперь понятно !

@ro0t 5 / 5 / 1 Регистрация: 13.02.2011 Сообщений: 48
		1
	Обработчик событий 11.04.2011, 11:47. Показов 1946. Ответов 4 Метки нет (Все метки) Как создать событие на вставку флешки(или другого устройства)в usb? 0

@vallerik Фрилансер 67 / 37 / 2 Регистрация: 11.01.2011 Сообщений: 280
	12.04.2011, 14:16	3
	Сообщение от Zaxelf private procedure WMDeviceChange(var Msg: TMessage); message WM_DEVICECHANGE; /////////////..... implementation /////////////.... Я немного не понял а это куда прописать ??? 0

@vallerik Фрилансер 67 / 37 / 2 Регистрация: 11.01.2011 Сообщений: 280
	12.04.2011, 14:35	5
	ro0t, Теперь понятно ! 0

Опции темы