auflistung devices

[mr.unbekannt]

Hallo,

wie kann ich in Delphi die Auflistung der HDD- Devices + zusätzlichen Laufwerksbuchstaben herausbekommen?

Bsp:

\Device\Harddisk0\Partition1 C:
\Device\Harddisk0\Partition2 D:
\Device\Harddisk1\Partition1 F:
\Device\Harddisk1\Partition2 G:
\Device\Harddisk1\Partition3 H:

Gruß

[neo4a]

Wenn für Dich Englisch kein Problem ist, schau Dir den Delphi WMI Generator an, der Dir - nicht nur zu diesem Thema - gleich den Source und die Demo liefert.

[mr.unbekannt]

englisch wäre nicht das problem, ich bräuchte aber halt nur diesen kleinen teil und nicht so ein riesen programm für sowas.

[neo4a]

Zitat von mr.unbekannt:

englisch wäre nicht das problem, ich bräuchte aber halt nur diesen kleinen teil und nicht so ein riesen programm für sowas.

Die Zip-Datei für das installationsfreie Programm ist 3MB groß, soll ich Dir tragen helfen? Oder geht es Dir nur um so etwas:

Delphi-Quellcode:

    objWMIService := GetWMIObject('winmgmts:\\localhost\root\cimv2');
    colItems      := objWMIService.ExecQuery('Select * From Win32_DiskDrive Where InterfaceType="USB"', 'WQL', 0);
    oEnum         := IUnknown(colItems._NewEnum) as IEnumVariant;
    for i := 0 to colItems.Count - 1 do
      if oEnum.Next(1, colItem, iValue) = 0 then

Vielleicht liefern Dir ja auch die Jedi-Tools eine brauchbaren Ansatz.

[mjustin]

Zitat von mr.unbekannt:

englisch wäre nicht das problem, ich bräuchte aber halt nur diesen kleinen teil und nicht so ein riesen programm für sowas.

Beschreibung WMI Delphi Code Creator:

Zitat:

"Can generate object pascal code"

Das "Riesenprogramm" erzeugt nur den Delphi Quellcode für die gewünschte WMI Operation. Es muss nicht mit in der eigenen Anwendung eingebaut oder mit installiert werden.

[mr.unbekannt]

das mit dem programm habe ich schon verstanden. Der Quelltext reicht mir aber. Danke!

[ASM]

Zitat von mr.unbekannt:

wie kann ich in Delphi die Auflistung der HDD- Devices + zusätzlichen Laufwerksbuchstaben herausbekommen?

Das habe ich doch gerade eben erst (vor 13 Stunden) hier beschrieben (siehe dort function ConvertDevicePathToDOSPath()).
Ganz ohne Verwendung der WMI.

Hier noch einmal zum Mitschreiben:

Code:

function GetHDDDevicesWithDOSPath:TStringlist;
var
  i: integer;
  root: string;
  device: string;
  buffer: string;
begin
  setlength(buffer, 1000);
  result:=TStringlist.create;
  for i := Ord('c') to Ord('z') do
  begin
    root := Char(i) + ':';
    if (QueryDosDevice(PChar(root), pchar(buffer), 1000) <> 0) then
    begin
      device := pchar(buffer);
      result.add(format('%s = %s\',[device, root ]));
    end;
  end;
end;

z.B Beispiel:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var slDevices: TStringlist;
begin
 memo1.Clear;
 try
   slDevices:=GetHDDDevicesWithDOSPath;
   if (slDevices<>nil) and (slDevices.count>0) then
     memo1.lines.Text:=slDevices.Text;
 finally
 if assigned(slDevices) then slDevices.Free;
end;
end;

[neo4a]

Zitat von ASM:

Ganz ohne Verwendung der WMI.

Dafür mit ganz viel Jedi Units. Für den Zugriff auf WMI ist es mit ActiveX, ComObj, Variants getan.

[ASM]

Zitat von neo4a:

Zitat von ASM:

Ganz ohne Verwendung der WMI.

Dafür mit ganz viel Jedi Units. Für den Zugriff auf WMI ist es mit ActiveX, ComObj, Variants getan.

Absoluter Unfug, was den Kommentar zu den angeblich benötigten JEDI-Units betrifft !!!
Die hier oben von mir beschriebene Funktion zur ausschließlichen Ermittlung der HDD-Devices benötigt überhaupt keine einzige zusätzliche Unit neben denen, die sowieso für die Erstellung der Form benötigt werden. Sie benötigt also weder explizit noch implizit eine einzige Unit aus dem JEDI-package. Die Funktion ist stand-alone arbeitsfähig. Der in ihr enthaltene, entscheidende Aufruf QueryDosDevice() ist in der Unit Windows enthalten.

Es ist also die WMI, die unnötig aufbläst, wenn man denn unbedingt sie zu Hilfe nehmen will.

[neo4a]

Zitat von ASM:

Absoluter Unfug, was den Kommentar zu den angeblich benötigten JEDI-Units betrifft !!!

Ganz zu schweigen von dem fundamentalen Schwachsinn, einen Satz mit 3(!) Ausrufzeichen zu versehen!

Zitat von ASM:

Die Funktion ist stand-alone arbeitsfähig. Der in ihr enthaltene, entscheidende Aufruf QueryDosDevice() ist in der Unit Windows enthalten.

In der angegebenen Quelle waren die Jedi-Units angegeben.

Zitat von ASM:

Es ist also die WMI, die unnötig aufbläst

Was bläst WMI auf?