Arbeitsplatz Laufwerksbuchstaben auslesen

[GoTo0815]

Hallo,

ich habe folgendes Problem:

Ich möchte alle besetzten Laufwerksbuchstaben ermitteln. Leider ist GetLocalDrives nicht in der Lage einen für ein Netzlaufwerk vergebenen Laufwerksbuchstaben zu ermitteln, wenn die Verbindung nicht aktiv ist.
Das Problem schein bekannt und sorg ja bei vielen Rechnern auch für Probleme beim Anschluss von anderen Removables.

Allerdings kann doch so eine Uraltkomponente wie OpenDialog alle Laufwerksbuchstaben des Arbeitsplatzes anzeigen (auch die nicht aktiven Laufwerke).
Also muss doch irgendwie die möglichkeit bestehen, das ganze auf anderen Wege auszulesen. Hat jemand eine Idee, wie ich, ohne visuelle Komponenten zu benutzen, einfach alle Laufwerke des Arbeitsplatzes in eine StringListe einlese?

Gruß

Hendrik

[Phoenix]

Der von Dir angesprochene Dialog ist eigentlich 'nur' ein Aufruf einer Windows-API-Funktion. Der Dialog selber ist der vom Betriebssystem.

[DeddyH]

Ich kann es gerade nicht ausprobieren, aber evtl. hilft Dir GetLogicalDriveStrings weiter.

[GoTo0815]

Hallo,

@DeddyH
Hilft leider nicht! Wenn ein Laufwerk innerhalb der Windows-Session einmal aktiv war, dann geht das zwar, aber nicht wenn innerhalb der Session nicht verbunden wurde. Dennoch ist dann der Buchstabe belegt.

@Phoenix
Aber welche API Funktion? Und wie kann man das tatsächlich (Code) umsetzen?

Gruß

Hendrik

[RWarnecke]

Hallo Hendrik,

Du könntest das ganze auch über WMI auslesen. Mit der folgenden Abfrage bekommst Du genau die Laufwerke die auch im Arbeitsplatz angezeigt werden :

SQL-Code:

SELECT Name, Description, DriveType, FileSystem, FreeSpace, Size, VolumeSerialNumber from Win32_LogicalDisk

[Satty67]

Gib GetDriveType (durchlaufen mit allen Laufwerksbuchstaben) auch nicht den korrekten Typ (RemoteDrive)?

[RWarnecke]

Ja, über den Weg kann man es auch machen, so dass man mit GetDriveType die Laufwerke bestimmt und dann nur die Laufwerksbuchstaben ausgibt, wo eine Erkennung statt gefunden hat.

[GoTo0815]

Leider nein. Ich hatte das direkt mit meinem Laufwerk z:\ getestet.
Mit meinem aktiven Laufwerk T:\ funktioniert das wunderbar.

[RWarnecke]

Zitat:

Zitat von HendrikSturm

Leider nein. Ich hatte das direkt mit meinem Laufwerk z:\ getestet.
Mit meinem aktiven Laufwerk T:\ funktioniert das wunderbar.

Ich verstehe im Moment nicht ganz, was Du unter einem aktiven und einem inaktiven Laufwerk verstehst. Den Link den ich Dir in meinem letzten Posting mitgegeben habe, gibt den Typ des Laufwerks aus. Wird kein Laufwerk gefunden, so gibt es nichts zurück.

[Satty67]

Denke ist wohl das leidige Problem, wenn eine Remote-Laufwerk "mit Netzlaufwerk verbinden" an einen lokalen Laufwerksbuchstaben gekoppelt wird. Da wir die Verbindung (trotz Häkchen, bei Start neu verbinden) immer erst verbunden, wenn ein Programm versucht darauf zuzugreifen, was demnach beim ersten Versuch zu einem Fehler führen kann.

Nur NET USE als Autostart-Script funktioniert da, aber auch nur wenn zuvor die Verbindung mit /Delete zurückgesetzt wurde zu 100% (PS: Übrigens ähnlich, wenn mal LTP1 an eine Netzwerkdrucker bindet...)

Ein Versuch ist es Wert, zumindest sollte ein Zugriff vermutet werden und Laufwerk verbinden...

Delphi-Quellcode:

function GetDriveLetters: String;
var
  i : Integer;
begin
  Result := 'CDEFGHIJKLMNOPQRSTUVWXYZ';
  i := Length(Result);
  while i > 0 do begin
    if not DirectoryExists(Result[i]+':\') then
      Delete(Result,i,1);
    dec(i);
  end;
end;

Nicht installierte Diskettenlaufwerke (also A/B) bringen die alte Meldung Retry/Ignore/Cancel in nie dagewesener Verwirrtheit.