XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Verzeichnis: Programmverzeichnis der eigenen EXE-Datei ermitteln
Hinweis:
Im Interpretermodus ist das Programmverzeichnis immer
das Verzeichnis mit dem Interpreter PROFAN.EXE
Ab XProfan gibt es zur Bestimmung des Programmverzeichnisses
die Systemvariable $ProgDir
------------ ABSPFAD.INC ------------------------------------------------
Declare LW$,PF$,DAT$,EXT$

Proc MakeAbsPfad

    Declare Pfad$
    Let Pfad$=@$(1)
    Laufwerk
    Let LW$=@Mid$(Pfad$,1,2)
    Pfad
    Let PF$=@Del$(Pfad$,1,2)

    WhileNot @Equ$(@Mid$(PF$,@Len(PF$),1),)

        Let PF$=@Del$(PF$,@Len(PF$),1)

    Wend

    Dateiname
    Let DAT$=Pfad$

    While @Gt(@Instr(,DAT$),0)

        Let DAT$=@Del$(DAT$,1,1)

    Wend

    Case @Gt(@Instr(.,DAT$),0):Let DAT$=@SubStr$(DAT$,1,.)
    Erweiterung
    Let EXT$=Pfad$

    While @Gt(@Instr(,EXT$),0)

        Let EXT$=@Del$(EXT$,1,1)

    Wend

    Case @Gt(@Instr(.,EXT$),0):Let EXT$=@SubStr$(EXT$,2,.)

EndProc

------------ Ende ABSPFAD.INC ------------------------------------------------
declare prgverz$,hgbild$
MakeAbsPfad @par$(0)
let prgverz$=@add$(lw$,PF$)
let hgbild$=@add$(prgverz$,WOLKEN.BMP)
cls
print add$(Programmverzeichnis : ,prgverz$)
print
print add$(Hintergrundbild: ,hgbild$)
WaitInput