Автоматично декодиране на USB вмъкване и премахване в Delphi - delphi

Трябва да открия, когато USB устройството е премахнато или поставено от програмата ми. Направих някои изследвания и намери това но не знам как да го приложим / използвам. може ли някой да ми помогне вероятно с функция, която ще се върне вярно на USB Insert и фалшиво на отстраняване, така че мога да се обадя на таймер, за да проверите тази функция на всяка секунда?
Използване на Delphi XE7.

Благодаря.

Отговори:

Създайте копие на TComponentUSB. Присвояване на две манипулатори на събития на OnUSBArrival и OnUSBRemove. Изпълнете подходящ код в манипулаторите на събития. Имайте предвид, че запитването с TTimer не е необходимо.
Скица на кода:

type
TMyForm = class(TForm)
FormCreate(Sender: TObject);
...
private
CUSB: ComponentUSB;
procedure USBArrival(Sender: TObject);
...
end;

procedure TMyForm.FormCreate(Sender: TObject);
begin
CUSB := ComponentUSB.Create(Self);
CUSB.OnUSBArrival = USBArrival;
end;

procedure TMyForm.USBArrival(Sender: TObject);
begin
Caption := "I""m here now!";
end;