USB-Ports deaktivieren&aktivieren in Delphi 7

[DeddyH]

Und wo wird da SetupAPI eingebunden?

[sneumann]

Zitat von DeddyH:

Und wo wird da SetupAPI eingebunden?

achso ja jetzt habe ich noch uses setupapi hinzugefügt trotzdem folgende fehlermeldungen

Code:

[Warnung] main.pas(32): Unsicherer Typ 'HDEVINFO'
[Warnung] main.pas(47): Unsicherer Typ 'hdev: Pointer'
[Warnung] main.pas(47): Konstante 0 wurde zu NIL konvertiert
[Warnung] main.pas(47): Konstante 0 wurde zu NIL konvertiert
[Warnung] main.pas(48): Unsicherer Typ 'hdev: Pointer'
[Warnung] main.pas(57): Unsicherer Typ 'hdev: Pointer'
[Warnung] main.pas(59): Unsicherer Typ 'hdev: Pointer'
[Warnung] main.pas(60): Unsicherer Code '@ operator'
[Fehler] main.pas(60): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen
[Warnung] main.pas(60): Unsicherer Code '@ operator'
[Fehler] main.pas(60): Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen
[Fehler] main.pas(67): Undefinierter Bezeichner: '_SP_CLASSINSTALL_HEADER'
[Warnung] main.pas(73): Unsicherer Typ 'hdev: Pointer'
[Warnung] main.pas(73): Unsicherer Code '@ operator'
[Warnung] main.pas(75): Unsicherer Typ 'hdev: Pointer'
[Warnung] main.pas(82): Unsicherer Typ 'hdev: Pointer'
[Fataler Fehler] usbtest.dpr(5): Verwendete Unit 'main.pas' kann nicht compiliert werden

[DeddyH]

Na gut, dann passt die setupapi.pas wohl tatsächlich nicht zum Beispielcode. Du könntest den Kaktus ja einmal bitten, Dir seine verwendete Version zu schicken.

[sneumann]

Zitat von DeddyH:

Na gut, dann passt die setupapi.pas wohl tatsächlich nicht zum Beispielcode. Du könntest den Kaktus ja einmal bitten, Dir seine verwendete Version zu schicken.

okay hab ihm geschrieben,mal sehen, hat denn eventuell jemand noch einen anderen Code parrat mit dem ich 4 buttons machen kann, 1 zum aktivieren , 1 zum deaktivieren, 1 zum geräte suchen, 1 zum auflisten der usb ports ??

mache ich vielleicht auch einen falschen Aufruf?

[Der.Kaktus]

Zitat von sneumann:

Zitat von DeddyH:

Na gut, dann passt die setupapi.pas wohl tatsächlich nicht zum Beispielcode. Du könntest den Kaktus ja einmal bitten, Dir seine verwendete Version zu schicken.

okay hab ihm geschrieben,mal sehen, hat denn eventuell jemand noch einen anderen Code parrat mit dem ich 4 buttons machen kann, 1 zum aktivieren , 1 zum deaktivieren, 1 zum geräte suchen, 1 zum auflisten der usb ports ??

mache ich vielleicht auch einen falschen Aufruf?

SetupAPI ist Teil der JCL (Jedi-VCL)..

des weiteren hast Du etwas falsch verstanden!!!..ich schrieb

Delphi-Quellcode:

...
Uses SetupAPI;

das ... sollte heissen...nach !!! dem Programm-Kopf(header)

also nach

Delphi-Quellcode:

Program test1;
uses System, Forms........;

var
  Form1: TForm1;

implementation

{$R *.dfm}


Uses SetupAPI;

Auch war es nur ein Beispiel!!! um die Art und Weise zu erklaeren...deshalb auch die Kommentare

Delphi-Quellcode:

// state disable setzen
...
// Devices listen

ein bisschen musst Du schon noch nachdenken..sorry!!!!

P.S.: ich habe ebenfalls D7 und es funktioniert Prima

Die Geraetebezeichnung "Universal Host Controller" entsprach auch damals meinem Problem..muesstest Du kontrollieren, ob es unter Windows 7 auch so heisst!!

[DeddyH]

Moin Kaki,
*räusper* JCL <> JVCL
Meine Vermutung ist, dass die Unit im Laufe der Zeit überarbeitet wurde und mit Deinem Code nicht mehr ohne Weiteres kompatibel ist. Deshalb mein Vorschlag, dass Du ihm Deine Version schicken sollst (oder hier anhängen, Attachments in PMs gehen ja nicht mehr).

[Der.Kaktus]

Zitat von DeddyH:

Moin Kaki,
*räusper* JCL <> JVCL
Meine Vermutung ist, dass die Unit im Laufe der Zeit überarbeitet wurde und mit Deinem Code nicht mehr ohne Weiteres kompatibel ist. Deshalb mein Vorschlag, dass Du ihm Deine Version schicken sollst (oder hier anhängen, Attachments in PMs gehen ja nicht mehr).

OK OK JVCL..Sorry


wollte ich tun..ABER "Dein Seitenaufruf konnte aufgrund eines fehlenden Securitytokens nicht verarbeitet werden.

"

hier die Version (nur Namen) die geht "JVCL333CompleteJCL1101-Build2725"
evtl. mal googeln