Unit Unit1; Interface Uses Windows, Messages, SysUtils, Variants, classes, Graphics, Controls, Forms, Dialogs, AppEvnts, ExtCtrls, StdCtrls, ShellAPI; Type TForm1 = Class(TForm) Button1: TButton; Private { Private declarations } Procedure WMDeviceCha