USB Stick erkennen

[DeddyH]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
    FUSB: TComponentUSB;
    procedure DoOnConnect(Sender: TObject); //<- TNotifyEvent
    procedure DoOnDisconnect(Sender: TObject); //<- TNotifyEvent
  public
    { Public-Deklarationen }
  end;

...

procedure TForm1.DoOnConnect(Sender: TObject);
begin
  ShowMessage('Gerät angeschlossen');
end;

procedure TForm1.DoOnDisconnect(Sender: TObject);
begin
  ShowMessage('Gerät entfernt');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FUSB := TComponentUSB.Create(self);
  FUSB.OnUSBArrival := DoOnConnect;
  FUSB.OnUSBRemove := DoOnDisconnect;
end;

[MiKaEr]

ups.

sorry. jetzt weiß ich auch was ich falsch gemacht habe

ich habe das Sender: TObject vergessen

[himitsu]

PS: TNotifyEvent

Zitat von MiKaEr:

mein einziges problem ist:

wie sieht der aufbau eines solchen TNotifyEvents aus?

[DeddyH]

Hast Du auch selbst vorher nachgeschaut?

Zitat:

Code:

typedef void __fastcall (__closure *TNotifyEvent)(System::TObject* Sender);

Für reine Delphianer nicht sehr informativ

[MiKaEr]

mir fällt gerade auf, dass der auf der letzten seite vorgeschlagene source-code (WMDeviceChange) nicht funktioniert.

folgende funktion gibt keinen wert zurück, da if (Maske and 1) = 1 niemals zutrifft:

Delphi-Quellcode:

 function GetDrive(pDBVol: PDevBroadcastVolume): string;
 var
  i: Byte;
  Maske: DWORD;
 begin
  if (pDBVol^.dbcv_flags and $0001) = $0001 then
   begin
    Maske := pDBVol^.dbcv_unitmask;
    for i := 0 to 25 do
     begin
      if (Maske and 1) = 1 then
       Result := Char(i + Ord('A')) + ': ';

      Maske := Maske shr 1;
     end;
   end;
 end;

// GetDrive(PDevBroadcastVolume(Msg.lParam))

[DeddyH]

Welcher Wert steht denn in Maske?

[himitsu]

@Detlev: War auch vorwiegend als Beispiel gedacht.
'ne lokale OH gibt's och noch, im Delphi-Quelltext steht es ganz genau und das CodeInsight, bzw. die Autovervollständigung zeichen auch die wichtigen pascalbezogenen Infos.

Falls man sich mal die Beschreibung zu DevBroadcastVolume ansieht, dann fällt Folgendes auf.

Zitat:

Gets the bit unit mask of the device. IE (bit 0 = A:, bit 1 = B:, etc..)

Mit der 1 liefert es also nur ein Ergebnis, wenn sich am ersten Laufwerk (also A: ) etwas verändert hat.

[DeddyH]

Das sehe ich aber anders.

Zitat:

Delphi-Quellcode:

for i := 0 to 25 do
begin
  if (Maske and 1) = 1 then Result := Char(i + Ord('A')) + ': ';
  Maske := Maske shr 1;
end;

Die Maske wird 26 mal auf gesetztes Bit geprüft und nach rechts geshiftet.

[himitsu]

Hab bei der Leerzeile aufgehört zu lesen ... wer kann den Ahnen, daß da noch was Wichtiges kommt.

[ASM]

Zitat von MiKaEr:

mir fällt gerade auf, dass der auf der letzten seite vorgeschlagene source-code (WMDeviceChange) nicht funktioniert.

folgende funktion gibt keinen wert zurück, da if (Maske and 1) = 1 niemals zutrifft:

Der Fehler liegt im Code

Code:

if (pDBVol^.dbcv_flags and $0001) = $0001 then

Der Wert "$0001" ist für den Wechsel eines CD/DVD-Laufwerks gültig.
Mit USB-Drives (Stick, Harddisk)) aber wird die dann folgende Schleife niemals durchlaufen, also der Laufwerksbuchstabe nicht erkannt.

Für USBs muss es vielmehr heißen:

Code:

 if (pDBVol^.dbcv_flags and DBTF_REMOVE) = DBTF_REMOVE then

wobei:

Code:

Const 
  DBTF_REMOVE = $0000;
  DBTF_MEDIA  = $0001;