Einzelnen Beitrag anzeigen

Satty67

Registriert seit: 24. Feb 2007
Ort: Baden
1.566 Beiträge
 
Delphi 2007 Professional
 
#10

Re: Arbeitsplatz Laufwerksbuchstaben auslesen

  Alt 27. Mai 2009, 19:32
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.
  Mit Zitat antworten Zitat