AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Überprüfen ob USB Device schon eingesteckt / eingelegt ist
Thema durchsuchen
Ansicht
Themen-Optionen

Überprüfen ob USB Device schon eingesteckt / eingelegt ist

Ein Thema von Daniel B · begonnen am 11. Sep 2006 · letzter Beitrag vom 22. Sep 2006
Antwort Antwort
Seite 1 von 2  1 2      
Benutzerbild von Daniel B
Daniel B

Registriert seit: 27. Okt 2005
Ort: Dachau
453 Beiträge
 
Delphi 2007 Professional
 
#1

Überprüfen ob USB Device schon eingesteckt / eingelegt ist

  Alt 11. Sep 2006, 12:35
Hallo,

wenn man prüfen möchte ob ein USB-Stick eingesteckt wird, kann man mit WM_DEVICECHANGE das prüfen, aber was wäre wenn der Stick schon beim Hochfahren des PCs schon eingesteckt ist, kommt man noch zu der Message, oder braucht man dann was völlig anderes?
Servus...
  Mit Zitat antworten Zitat
Benutzerbild von MagicAndre1981
MagicAndre1981

Registriert seit: 4. Jun 2004
Ort: Nordhausen
2.214 Beiträge
 
Delphi 7 Enterprise
 
#2

Re: Überprüfen ob USB Device schon eingesteckt / eingelegt i

  Alt 11. Sep 2006, 12:40
dann hat der Stick doch schon ein LW-Buchstaben, dann musst nur noch alle LW durchgehen und deinen Stick suchen.
André
"A programmer is just a tool which converts caffeine into code", daran wirds wohl liegen, dass ich Abends nie pennen kann

Zitat von Luckie:
Nicht nur dass ihr offtopic geworden seid, jetzt werdet ihr selber im Offtopic noch offtopic
  Mit Zitat antworten Zitat
Benutzerbild von Daniel B
Daniel B

Registriert seit: 27. Okt 2005
Ort: Dachau
453 Beiträge
 
Delphi 2007 Professional
 
#3

Re: Überprüfen ob USB Device schon eingesteckt / eingelegt i

  Alt 11. Sep 2006, 12:42
Ich muss aber drauf überprüfen ob es ein USB-Stick ist, der mir ja unbekannt ist, also sein NAme ist auch nicht bekannt. Desweiteren bin ich von WM_DEV..... ausgegangen, das macht keinen Unterschied zwischen USB-Stick oder Festplatte, das wäre dann grundsätzlich ein lokaler Datenträger.
Servus...
  Mit Zitat antworten Zitat
Benutzerbild von freak4fun
freak4fun

Registriert seit: 22. Sep 2004
Ort: Hannover
1.807 Beiträge
 
Delphi 10.2 Tokyo Starter
 
#4

Re: Überprüfen ob USB Device schon eingesteckt / eingelegt i

  Alt 11. Sep 2006, 13:17
Du kannst den Laufwerkstyp mit GetDriveType(); prüfen. USB fällt unter DRIVE_REMOVABLE.

MfG
freak
Christian
IT: Schließen Sie bitte das Fenster. User: Die Tür auch?
i++; // zaehler i um 1 erhoehen
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#5

Re: Überprüfen ob USB Device schon eingesteckt / eingelegt i

  Alt 11. Sep 2006, 13:19
als USB fällt nicht generell unter DRIVE_REMOVABLE
Ich meine das meine externe USB-Festplatte als fixes laufwerk fungiert.
Und mit DRIVE_REMOVABLE müsste man auch Diskettenlaufwerke erwischen.
Aber ich hab auch die Berfürchtung das man nicht 100tig sagen kann welches Gerät ein Laufwerk widerspiegelt.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Benutzerbild von Daniel B
Daniel B

Registriert seit: 27. Okt 2005
Ort: Dachau
453 Beiträge
 
Delphi 2007 Professional
 
#6

Re: Überprüfen ob USB Device schon eingesteckt / eingelegt i

  Alt 11. Sep 2006, 13:21
USB-Festplatte erscheint auch nicht als Wecheldatenträger, sondern Lokales Laufwerk im Arbeitsplatz, darum unterscheiden sich die die beiden.
Servus...
  Mit Zitat antworten Zitat
Benutzerbild von Daniel B
Daniel B

Registriert seit: 27. Okt 2005
Ort: Dachau
453 Beiträge
 
Delphi 2007 Professional
 
#7

Re: Überprüfen ob USB Device schon eingesteckt / eingelegt i

  Alt 11. Sep 2006, 13:25
Zitat von SirThornberry:
als USB fällt nicht generell unter DRIVE_REMOVABLE
Ich meine das meine externe USB-Festplatte als fixes laufwerk fungiert.
Und mit DRIVE_REMOVABLE müsste man auch Diskettenlaufwerke erwischen.
Aber ich hab auch die Berfürchtung das man nicht 100tig sagen kann welches Gerät ein Laufwerk widerspiegelt.
Das Problem am Diskettenlaufwerk ist, das der das Polling abbekommt und man es immer hört, aber es würde schonmal mit dem USB-Stick laufen. Diskette dann warscheinlich auch.
Servus...
  Mit Zitat antworten Zitat
dp_bertel

Registriert seit: 21. Sep 2006
4 Beiträge
 
#8

Re: Überprüfen ob USB Device schon eingesteckt / eingelegt i

  Alt 21. Sep 2006, 23:39
Was mich interessieren würde, ist, was Du dann mit dem USB-Stick machen willst, wenn Du ihn gefunden hast? Unter Kenntnis des eigentlichen Problems ließe sich vielleicht eine sehr simple Lösung finden.
  Mit Zitat antworten Zitat
Benutzerbild von SirThornberry
SirThornberry
(Moderator)

Registriert seit: 23. Sep 2003
Ort: Bockwen
12.235 Beiträge
 
Delphi 2006 Professional
 
#9

Re: Überprüfen ob USB Device schon eingesteckt / eingelegt i

  Alt 21. Sep 2006, 23:41
Die Daten vom USB-Stick sollen gelesen werden.
Jens
Mit Source ist es wie mit Kunst - Hauptsache der Künstler versteht's
  Mit Zitat antworten Zitat
Go2EITS

Registriert seit: 25. Jun 2006
519 Beiträge
 
Delphi 7 Personal
 
#10

Re: Überprüfen ob USB Device schon eingesteckt / eingelegt i

  Alt 22. Sep 2006, 09:34
@SirThornberry
1. Initialisierung:
Anlegen einer Liste mit allen Laufwerken. (Ohne Dein USB LW angeschlossen zu haben.)

2. Mit WM_DEVICECHANGE prüfen( wie auch immer das gehen mag), ob ein neues Laufwerk angeschlossen wurde.

3. Alle Laufwerke durchgehen und herausfinden, welches Laufwerk nicht in der Liste steht ist
gleich neues Laufwerk.

Verständlich?

Oder:
1. Du legst ins hauptverzeichnis eine leere Datei (0-Bytes) auf Deinem USB-LW oder Stick an:
z. b. SirThornberryStick

2. Mit WM_DEVICECHANGE prüfen( wie auch immer das gehen mag), ob ein neues Laufwerk angeschlossen wurde.

3. Abfrage aller Laufwerke, ob im Hauptverzeichnis die Datei SirThornberryStick
verhanden ist. Dann ist es Dein USB-LW oder Stick.

Alternativ kann man, so denke ich, bei USB Laufwerken einen Laufwerksnamen anlegen und abfragen oder auch, irgendwo mal gesehen, eine Stick ID auslesen.

In der Tstringlist AllDirves stehen dann alle Laufwerke:
Delphi-Quellcode:
// FUNKTIONIERT
procedure ListDrives;
const
  DRIVE_UNKNOWN = 0;
  DRIVE_NO_ROOT_DIR = 1;
  DRIVE_REMOVABLE = 2;
  DRIVE_FIXED = 3;
  DRIVE_REMOTE = 4;
  DRIVE_CDROM = 5;
  DRIVE_RAMDISK = 6;
var
  r: LongWord;
  Drives: array[0..128] of char;
  pDrive: PChar;
begin
  r := GetLogicalDriveStrings(SizeOf(Drives), Drives);
  if r = 0 then Exit;
  if r > SizeOf(Drives) then
    raise Exception.Create(SysErrorMessage(ERROR_OUTOFMEMORY));
  pDrive := Drives;
  while pDrive^ <> #0 do
  begin
    if GetDriveType(pDrive) = DRIVE_FIXED then
      AllDrives.Add(pDrive);
      //Form1.cbb1.Items.Add(pDrive);
    Inc(pDrive, 4);
  end;
end;
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 07:32 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz