Wo liegt die Exe? Lokaler PC? Netzwerk?

[techniker]

Hallo,

wie kann ich sicher feststellen, von wo die Exe gestartet wurde?
Von einem lokalen Laufwerk (Festplatte, USB-Stick, CD usw.) oder von einem verbundenem Netzlaufwerk bzw. URI?

PS: System ausschließlich Windows 10 oder höher.

Schöne Grüße

[jogo]

Ich verwende dafür immer diese beiden Funktionen. Das Ergebnis ist das Verzeichnis, in dem sich dein (gestartetetes) ausführbares Programm befindet.

Code: Alles auswählen

pfad = GetPathPart(ProgramFilename())

[techniker]

Danke für die Antwort.
Aus dem Pfad kann ich nicht erkennen, wo die Exe liegt.

z.B. Wenn jemand ein Netzlaufwerk als D:/ einbindet, kann ich nicht erkennen, ob das Lokal ist oder nicht..

[Homer J. S.]

Hey techniker,
ich glaube du suchst folgendes:

Code: Alles auswählen

type = GetDriveType_(GetPathPart(ProgramFilename()))

Select type
                                                   
  Case #DRIVE_UNKNOWN;  The drive type cannot be determined. 
   MessageRequester("Drive Type","Unknown", 0) 

  Case #DRIVE_NO_ROOT_DIR ;The root path is invalid. For example, no volume is mounted at the path. 
   MessageRequester("Drive Type","The root path is invalid. For example, no volume is mounted at the path.", 0) 

  Case #DRIVE_REMOVABLE ;The disk can be removed from the drive.
   MessageRequester("Drive Type","Removable", 0) 

  Case #DRIVE_FIXED; The disk cannot be removed from the drive.
    MessageRequester("Drive Type","Fixed", 0) 

  Case #DRIVE_REMOTE ;The drive is a remote (network) drive. 
    MessageRequester("Drive Type"," remote (network)", 0) 

  Case #DRIVE_CDROM ;The drive is a CD-ROM drive. 
    MessageRequester("Drive Type","CD-ROM drive", 0)
     
  Case #DRIVE_RAMDISK ; The drive is a RAM disk.
    MessageRequester("Drive Type","RAM disc", 0)

EndSelect

[techniker]

Bingo! Vielen lieben Dank

[Homer J. S.]

Gern geschehen