(WinAPI) Pfad + Name des eigenen Programmes ermitteln

Danilo · **Registriert:** 29.08.2004 03:07

Frage:
Wie bekomme ich denn den Pfad oder den Namen meines
Programmes heraus?

Antwort:
Den Pfad Deines Programmes bekommst Du mit folgender
Prozedur raus:

Code:

Procedure.s ExePath() 
  ExePath$ = Space(2048) 
  GetModuleFileName_(0,@ExePath$,2048)
  ProcedureReturn GetPathPart(ExePath$) 
EndProcedure 

MessageRequester("",ExePath(),0)

Und das Gleiche für den EXE-Namen:

Code:

Procedure.s ExeName()
  ExeName$ = Space(2048)
  GetModuleFileName_(0,@ExeName$,2048) 
  ProcedureReturn GetFilePart(ExeName$)
EndProcedure 

MessageRequester("",ExeName(),0)

Deeem2031 · **Verfasst:** 16.10.2005 18:58

Und weil ichs grad gebraucht habe, die Linux-Äquivalente:

Code:

Procedure.s ExePath() 
  Protected ExePath$, len
  ExePath$ = Space(2048)
  len = readlink_("/proc/"+Str(getpid_())+"/exe",@ExePath$,2048)
  ExePath$ = Left(ExePath$,len)
  ProcedureReturn GetPathPart(ExePath$) 
EndProcedure

Procedure.s ExeName() 
  Protected ExePath$, len
  ExePath$ = Space(2048)
  len = readlink_("/proc/"+Str(getpid_())+"/exe",@ExePath$,2048)
  ExePath$ = Left(ExePath$,len)
  ProcedureReturn GetFilePart(ExePath$) 
EndProcedure

MVXA · **Verfasst:** 16.10.2005 19:38

Frage am Rande:
Kann man in der Zeile

Code:

len = readlink_("/proc/"+Str(getpid_())+"/exe",@ExePath$,2048)

nicht Str(getpid_()) durch "self" ersetzen? Ich dachte immer, dass der
Ordner "self" immer auf das eigene programm zeigt :oops:

.

Deeem2031 · **Verfasst:** 16.10.2005 19:51

Jo, geht auch. Habs allerdings so gemacht weil ich es auch mit getppid_() (PID von Parent-Process) ausprobieren wollte.

Andre · **Verfasst:** 26.08.2009 19:52

Kann zufällig jemand die MacOS-Varianten dieses Codes posten?

(Denn wenn ich mich nicht total täusche, dann gibt es diese Funktionen auch mit dem mittlerweile verfügbaren PB 4.40 beta nicht nativ, oder?)

ts-soft · **Registriert:** 08.09.2004 00:57 **Wohnort:** Berlin

MultiPlattform-mässig sollte es so gehen:

Code:

Procedure.s ExePath()
  ProcedureReturn GetPathPart(ProgramFilename())
EndProcedure

Procedure.s ExeName()
  ProcedureReturn GetFilePart(ProgramFilename())
EndProcedure

Debug ExePath()
Debug ExeName()

Gruß
Thomas

Andre · **Verfasst:** 26.08.2009 20:12

@ts-soft: Ich habs geahnt, dass ich was übersehen habe... :oops:

Danke!

PureBoard

(WinAPI) Pfad + Name des eigenen Programmes ermitteln

Wer ist online?