Определение подключения - отключения нового устройства

Code:

unit Unit1;

{©Drkb v.3(2007): www.drkb.ru}

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs, MMSystem;

type

TForm1 = class(TForm)

public

   procedure CD(var Msg: TMessage); message WM_DEVICECHANGE;

end;

const

DBT_DEVICEARRIVAL = $8000;

DBT_DEVICEREMOVECOMPLETE = $8004;

DBT_DEVNODES_CHANGED = $7;

var

Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.CD(var Msg: TMessage);

begin

case Msg.WParam of

   DBT_DEVNODES_CHANGED: Caption := 'Flash change';

   DBT_DEVICEARRIVAL: Caption := 'CD close with new disk';

   DBT_DEVICEREMOVECOMPLETE: Caption := 'CD open';

   //DBT_DEVICEARRIVAL: Caption := 'New network disk maped';

   //DBT_DEVICEREMOVECOMPLETE: Caption := 'Network disk unmaped';

else

   Caption := 'Unknown';

end;

end;

end.