AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Win32/Win64 API (native code) Delphi Windows API und das Erkennen von CD_DVD Brennern

Windows API und das Erkennen von CD_DVD Brennern

Ein Thema von Ajin · begonnen am 2. Dez 2008 · letzter Beitrag vom 3. Dez 2008
Antwort Antwort
Ajin

Registriert seit: 23. Feb 2006
Ort: Mons
252 Beiträge
 
Delphi 2010 Professional
 
#1

Windows API und das Erkennen von CD_DVD Brennern

  Alt 2. Dez 2008, 09:31
Hallo DP !

Die Suchfunktion hat mir schon gezeigt, dass die Win API die optischen Laufwerkstypen nicht unterscheiden kann. Die Threads sind stellenweise auch schon etwas älter, gibts in dieser Richtung keine "updates" ? Kann ich weiterhin nur aus dem Laufwerksnamen Schlüsse über den Laufwerks-Typen ermitteln?

Gruss Ajin
  Mit Zitat antworten Zitat
Benutzerbild von Mithrandir
Mithrandir
(CodeLib-Manager)

Registriert seit: 27. Nov 2008
Ort: Delmenhorst
2.379 Beiträge
 
#2

Re: Windows API und das Erkennen von CD_DVD Brennern

  Alt 2. Dez 2008, 12:19
Dies funktioniert über das sog. SPTI (SCSI PASS THROUGH INTERFACE). Dazu einfach mal hier in der DP suchen und die Sourcen von http://dancemammal.com/cdburn.htm anschauen. Auch wenn das Ding schon fast 3 Jahre alt ist und der Staub meterdick draufliegt, so kann man doch zumindest die Funktion zum Auslesen der Eigenschaften von Laufwerken extrahieren.
米斯蘭迪爾
  Mit Zitat antworten Zitat
Ajin

Registriert seit: 23. Feb 2006
Ort: Mons
252 Beiträge
 
Delphi 2010 Professional
 
#3

Re: Windows API und das Erkennen von CD_DVD Brennern

  Alt 2. Dez 2008, 15:19
Also mit

Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
  i : Byte;
  LW_Bez : String;
  LW_Eig : TCDROMDrive;
begin
  for i := 0 to 25 do
  if GetLogicalDrives and (1 shl i) <> 0
  then
    if GetDriveType(PAnsiChar(Chr(i + Ord('A')) + ':\')) = DRIVE_CDROM
    then begin
      LW_Bez := Chr(i + Ord('A')) + ':';
      LW_Eig := TCDROMDrive.Create(LW_Bez);
      ComboBox1.Items.Add(LW_Bez + ' ' + LW_Eig.Name);
      if ComboBox1.Items.Count > 0
        then ComboBox1.ItemIndex := 0;
    end;
end;
hab ich zumindest mal die Laufwerksbezeichnung. Der Nutzer Garfield hat sich ebenfalls mit dieser Thematik beschäftigt.

Ein ehemaliger Nutzer von DP schrieb:

Zitat:
Die moderne Methode ist über WMI und dessen Klasse Win32_CDROMDrive. Deren Member Capabilities enthält ein Flag, ob das Laufwerk Schreiben unterstützt.
Hat das schonmal jemand probiert?
  Mit Zitat antworten Zitat
Benutzerbild von Mithrandir
Mithrandir
(CodeLib-Manager)

Registriert seit: 27. Nov 2008
Ort: Delmenhorst
2.379 Beiträge
 
#4

Re: Windows API und das Erkennen von CD_DVD Brennern

  Alt 3. Dez 2008, 09:29
Und was ist jetzt mit meinem Vorschlag

Es gibt wohl Ansätze, die WMI in Delphi zu nutzen.
米斯蘭迪爾
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

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 15:11 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