Seite 1 von 1
Abfragen des Dateinamens der EXE laufenden Datei
Verfasst: 13.01.2005 21:42
von 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
Verfasst: 13.01.2005 21:56
von 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
Verfasst: 13.01.2005 21:59
von ts-soft
Nachtrag: Code vorher Speichern, sonst bekommste das Compilers Verzeichnis
Verfasst: 14.01.2005 00:30
von Frosch
@ts-soft,
DANKE!!
Gruß Ralf
Verfasst: 14.01.2005 19:50
von 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.
Verfasst: 14.01.2005 20:01
von ts-soft
@GPI
ist wirklich egal, wollte nur nochmal betonen, das ich besaglichen Code nicht abgeschrieben habe. Ähnlichkeiten ergeben sich zwangsläufig
Verfasst: 14.01.2005 20:09
von 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