Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Ein mit Subst erstelltes Laufwerk erkennen (https://www.delphipraxis.net/202503-ein-mit-subst-erstelltes-laufwerk-erkennen.html)

Alallart 11. Nov 2019 20:01

Ein mit Subst erstelltes Laufwerk erkennen
 
Ich habe ein kleines Tool gebastelt mit dem man mit Subst Ordner als Laufwerke mounten kann.

Nun würde ich gerne auch eine Funktion einbauen mit der ich das Laufwerk dismounten kann. Mir fällt nur keine Methode ein zu erkennen welches Laufwerk mit Subst erstellt wurde. Alles was ich mache gibt mit eine Festplatte als Ergebnis raus.

Hat jemand eine Idee?

Luckie 11. Nov 2019 20:18

AW: Ein mit Subst erstelltes Laufwerk erkennen
 
Warum mühsam wieder suchen? Du weißt doch, welche Laufwerke du gemountet hast.

Union 11. Nov 2019 21:35

AW: Ein mit Subst erstelltes Laufwerk erkennen
 
Benutze die Funktion MSDN-Library durchsuchenQueryDosDevice. Wenn der ermittelte Zielpfad mit '\??\' beginnt, handelt es sich um ein mit subst zugewiesenes Laufwerk:

Delphi-Quellcode:
  var TargetPath : string;
  var MaxLength := MAX_PATH + 1;
  SetLength(TargetPath, MaxLength);
  QueryDosDevice(PChar('C:'), PChar(TargetPath), MaxLength); // \Device\HarddiskVolume3
  QueryDosDevice(PChar('X:'), PChar(TargetPath), MaxLength); // \??\C:\Users\Public\Downloads

Alallart 11. Nov 2019 22:12

AW: Ein mit Subst erstelltes Laufwerk erkennen
 
@Luckie

Ich weiß auch was vom Konto abgebucht wird, trotzdem sich Kontoauszüge hilfreich. Ok, Spaß beiseite - natürlich hast du Recht, aber das Toll soll etwas Komfort bieten, ansonsten kann man ja gleich eine Batchdatei nehmen.


@Union

Danke, funktioniert. Ich verstehe die Funktion zwar noch nicht 100%, bzw. welchen Zweck die eigentlich hat, aber sie liefert ein Ergebnis. Danke.


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:01 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