Hardware erkennen an bestimmter Eigenschaft im DeviceManager

[Codewalker]

Hallo zusammen.

Ich habe ein USB-Gerät und möchte erkennen, ob es angeschlossen wurde. Es verwendet recht generische Treiber, so dass anhand von IDs etc. keine eindeutige Zuordnung treffen kann. Im Geräte-Manager bekomme ich bei den Eigenschaften des Geräts unter dem Punkte "Vom Bus gemeldete Gerätebeschreibung" genau den gesuchten String. Weiß jemand, wie ich von Delphi aus, an diesen Wert komme bzw. alle Geräte mit diesem String ermitteln kann?

[nuclearping]

Hey,

die JEDI Setup API bietet dafür recht gute Mittel an.

Über die WM_DEVICECHANGE Message kannst du mitbekommen, wann ein Gerät an das System angeschlossen / getrennt wurde und entsprechend darauf reagieren.

SetupDiCreateDeviceInfoList und SetupDiOpenDeviceInfo sollten dir eigentlich alle nötigen Parameter liefern.

Wenn du noch weitere Hilfe benötigst, sag bescheid. Will jetzt hier nicht gleich den ganzen Code posten, den wir in einem unserer Projekte verwenden.

[Codewalker]

Danke, das klingt schonmal sehr gut. Woher bekomme ich die denn? Habe bei Google nur die JEDI Security API gefunden und eine Header-Version von Robert Marquardt von 2001. Ist eines davon richtig oder hättest du sonst einen Link für mich?

[nuclearping]

Soweit ich weiß ist die SetupAPI Teil der JCL / JVCL.

[Codewalker]

Okay, SetupAPI lässt sich problemlos in die uses eintragen und dann stehen die von dir genannten Methoden auch zur Verfügung. Ich benötige hier aber mal ein wenig Hilfe. Aktuell sieht es so aus:

Delphi-Quellcode:

procedure TMainframe.Button1Click(Sender: TObject);
var
  GUID: PGUID;
  Info: HDEVINFO;
  i: Integer;
  DevInfoData: SP_DEVINFO_DATA;
begin
  if not LoadSetupApi then Exit;

  GUID^ := StringToGUID('{36fc9e60-c465-11cf-8056-444553540000}');
  Info := SetupDiCreateDeviceInfoList(GUID, 0);
  try
    if(NativeInt(Info) = INVALID_HANDLE_VALUE) then
    begin
      ShowMessage('Error: Invalid Handle');
      Exit;
    end;

    i := 0;
    while(SetupDiEnumDeviceInfo(Info, i, DevInfoData)) do  // liefert immer false
    begin
       Inc(i);
       // Hier muss dann irgendwie SetupDiGetDeviceRegistryProperty abgefragt werden
    end;


  finally
    SetupDiDestroyDeviceInfoList(Info);
    UnloadSetupApi;
  end;
end;

Die while-Schleife läuft aber nie durch. Hier müsste mein erster Denkfehler liegen. Und danach müsste ich ich SetupDiGetDeviceRegistryProperty aufrufen, aber insbesondere der PByte-Parameter macht Ärger. Wie kriege ich denn da einen brauchbaren String raus?

[nuclearping]

Probier's mal so:

Delphi-Quellcode:

procedure TMainframe.Button1Click(Sender: TObject);
var
  Info: HDEVINFO;
  i: Integer;
  DevInfoData: SP_DEVINFO_DATA;

  // ** Geändert / Hinzugefügt
  GUID: TGUID;

  DIISize: DWORD;
  DeviceInstanceID: String;
begin
  if not LoadSetupApi then Exit;

  GUID := StringToGUID('{36fc9e60-c465-11cf-8056-444553540000}');
  Info := SetupDiGetClassDevs(@GUID, nil, Self.Handle, DIGCF_PRESENT);
  // Info := SetupDiCreateDeviceInfoList(GUID, 0);
  try
    if(NativeInt(Info) = INVALID_HANDLE_VALUE) then
    begin
      ShowMessage('Error: Invalid Handle');
      Exit;
    end;

    i := 0;
    DevInfoData.cbSize := SizeOf(SP_DEVINFO_DATA);
    while(SetupDiEnumDeviceInfo(Info, i, DevInfoData)) do
    begin
       if MatchGUID(DevInfoData.ClassGuid, GUID) then
         begin
           // Zum Beispiel ... VID & PID auslesen
           SetLength(DeviceInstanceID, 50);
           SetupDiGetDeviceInstanceId(Info, @DevInfoData, PWideChar(DeviceInstanceID), 50, @DIISize);
           if (ConvertIDToVID(DeviceInstanceID) = GetHardwareVID) and
              (ConvertIDToPID(DeviceInstanceID) = GetHardwarePID) then
             ; // ...
         end;
       Inc(i);
    end;

  finally
    // SetupDiDestroyDeviceInfoList(Info);
    UnloadSetupApi;
  end;
end;