USB-Ports deaktivieren&aktivieren in Delphi 7

[sneumann]

Zitat von Luckie:

Wie viele Parameter hat die Prozedur? Und welche Datentypen haben sie?
procedure Disable_USB; Und nach der SetupAPI.pas/dcu kann man googlen.

Also alles keine unlösbaren Probleme.

setupati.pas hab ich jetzt gefunden danke..
hauptsächlich geht es mir eigentlich nur da rum, dass ich mit dem code das usb deaktivieren und wieder aktivieren kann. Ich bin mir jetzt nicht sicher. Ich mache gerade wahrscheinlich einen ganz simplen fehler beim aufrufen etc.
Hier ist mein Code: ich habe einfach nur ein neues Formular aufgemacht mit Button1(Geräte anzeigen), button1(aktivieren), button2( deaktivieren), und dann den oben stehenden code in die main eingefügt.

Meine Meldungen :
Erzeugen
[Fehler] main.pas(32): Undefinierter Bezeichner: 'Disable_USB'
[Warnung] main.pas(43): Unsicherer Typ 'HDEVINFO'
[Warnung] main.pas(58): Unsicherer Typ 'hdev: Pointer'
[Warnung] main.pas(58): Konstante 0 wurde zu NIL konvertiert
[Warnung] main.pas(59): Unsicherer Typ 'hdev: Pointer'
[Warnung] main.pas(68): Unsicherer Typ 'hdev: Pointer'
[Warnung] main.pas(70): Unsicherer Typ 'hdev: Pointer'
[Warnung] main.pas(71): Unsicherer Code '@ operator'
[Warnung] main.pas(71): Unsicherer Code '@ operator'
[Fehler] main.pas(71): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen
[Fehler] main.pas(78): Undefinierter Bezeichner: '_SP_CLASSINSTALL_HEADER'
[Warnung] main.pas(84): Unsicherer Typ 'hdev: Pointer'
[Warnung] main.pas(84): Unsicherer Code '@ operator'
[Warnung] main.pas(86): Unsicherer Typ 'hdev: Pointer'
[Warnung] main.pas(93): Unsicherer Typ 'hdev: Pointer'
[Fataler Fehler] testusb.dpr(5): Verwendete Unit 'main.pas' kann nicht compiliert werden