PureBoard

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$