Delphi 에서 USB 장치 인식 인지하기.

아..이 부담스런 미소 -_-;;

가끔 Device managing 관련 어플을 만들어야 할때가 있는데, 이때 도움이 되는 코드를 만들었습니다.

USB 장치가 뜨면 GUID 와 해당 장치의 정보를 알아 올 수 있습니다.

먼저 USBdetector 유닛 소스 입니다.

이걸 쓰려면 다음과 같이 사용이 가능합니다.

    usb_detector := TUSBdetector .Create(Self);

    usb_detector.OnUSBArrival := OnConnected;

    usb_detector.OnUSBRemove  := OnLeaved;

    usb_detector.OnUSBInfo    := OnInfo;

예제를 더 들자면 다음과 같은 코드로 사용이 가능합니다.