1. Speichere den Quelltext als U_Usb.pas
3. Füge den Quelltext unten in die
Unit ein. Die Punkte sind der Platzhalter für den Code von der
Unit.
2. Füge die Komponente hinzu. Menü Komponente -> Komponente hinzufügen. Wähle dort die
Unit aus.
3. Compiliere und Installiere das Paket
4. Die Kompoente kannst du nun in eine Form einfügen. (Reiter ComponentUSB)
5. Im Objektinspektor kannst du unter Reiter: Ereignisse die beiden Ereignisse verwende, um USB Verbindungen zu erkennen.
Delphi-Quellcode:
interface
...
procedure Register;
implementation
...
procedure Register;
begin
RegisterComponents('ComponentUSB',[TComponentUSB]);
end;
end.