Code: Alles auswählen
; Ermittelt den kompletten Pfad & Namen des gestarteten Exe-Files!
Procedure.s GetAppFile()
a$=Space(#MAX_PATH)
x=GetModuleFileName_(#Null,@a$,Len(a$))
b$=PeekS(@a$)
ProcedureReturn b$
EndProcedure
appfile$=GetAppFile()
Debug appfile$