Abfragen des Dateinamens der EXE laufenden Datei

[Frosch]

Hallo,

kennt jemand eine Alternative zu dem in jaPBe integrierten Befehl GetExeName (), der dort mit Include System läuft. Kurz gesagt, die laufende Datei soll ihren eigenen Dateinamen und Pfad feststellen. Da muss es doch eine API geben? Ich finde sie nur nicht.

Gruß Ralf

[ts-soft]

Code: Alles auswählen

Procedure.s GetAppDir()
  FullPath.s = Space(#MAX_PATH)
  GetModuleFileName_(GetModuleHandle_(0), @FullPath, #MAX_PATH)
  FullPath = GetPathPart(FullPath)
  If Right(FullPath, 1) <> "\" : FullPath + "\" : EndIf
  ProcedureReturn FullPath
EndProcedure
Procedure.s GetAppName()
  AppName.s = Space(#MAX_PATH)
  GetModuleFileName_(GetModuleHandle_(0), @AppName, #MAX_PATH)
  ProcedureReturn GetFilePart(AppName)
EndProcedure

Debug GetAppDir()
Debug GetAppName()

Ansonsten CodeArchiv

[ts-soft]

Nachtrag: Code vorher Speichern, sonst bekommste das Compilers Verzeichnis

[Frosch]

@ts-soft,

DANKE!!

Gruß Ralf

[GPI]

Integriert ist da übrigends nichts in jaPBe, das befindet sich in Include-Pack und kann in include\system.pbi nachgeschaut werden.

Übrigends: Ob du jetzt GetExeName() oder GetAppName() nimmst, ist wurscht, weil beide Routinen exact das gleiche machen.

[ts-soft]

@GPI
ist wirklich egal, wollte nur nochmal betonen, das ich besaglichen Code nicht abgeschrieben habe. Ähnlichkeiten ergeben sich zwangsläufig

[Frosch]

@GPI,

Du hast recht, jetzt wo Du es sagst is es logisch. Ich merks mir für die Zukunft. Trotzdem Danke für eune Hilfe!!

Gruß Ralf