XProfan

Source wurde am 15.07.2007 aus qui MMJ-Quellcodesammlung (Dietmar Horn) dans qui Babyklappe sur XProfan.Com abgelegt:
Programmverzeichnis bestimmen
Freundlicherweise de Dieter Zornow pour ROC
zur Disposition gestellt. DANKE!
Def FindFirstFile(2) !KERNEL32,FindFirstFileA
Def FindClose(1) !KERNEL32,FindClose
Déclarer PFAD$

PROC FINDFILE

    Déclarer handle&,info#,file#,nom$
    parameters file$
    Filemode 0
    Faible info#,255
    Faible File#,add(len(file$),1)
    String File#,0=file$
    let handle&=FindFirstFile(file#,info#)
    Laisser nom$=@String$(Info#,44)
    FindClose(handle&)
    Dispose File#
    Dispose info#
    Filemode 2
    Retour nom$

ENDPROC

PROC ZERLEGEN

    Déclarer z%,nom$,Pfad$,l1%,l2%,return$
    parameters uebergabe$
    let Pfad$=uebergabe$
    let l1%=@len(uebergabe$)
    Laisser z%=1

    Whilenot @equ(z%,0)

        let z%=@instr(,uebergabe$)
        let nom$=Mid $(uebergabe$,@add(z%,1),@sub(len(uebergabe$),z%))
        let uebergabe$=nom$

    Wend

    let l2%=@len(nom$)
    let uebergabe$=
    let Pfad$=@left$(Pfad$,@sub(l1%,l2%)) avec letztem

    si @gt(@len(Pfad$),3) si pas im Hauptverzeichnis

        inc l2%
        let Pfad$=@left$(Pfad$,@sub(l1%,l2%)) schneide cela dernier  ab facultativement je pour Verwendung

    endif

    let return$=Pfad$+|+nom$ unübliches Trennzeichen verwenden
    return return$

ENDPROC

PROC PFAD

    Déclarer Progpfad$,Progname$,temp$
    décomposer @par$(0)

    Si @equ$(@upper$(@Mid $(@$(0),@Ajouter(@instr(|,@$(0)),1),@sub(@len(@$(0)),@instr(|,@$(0))))),PROFANE.EXE)

        let temp$=@par$(1) *.prf
        décomposer temp$

    elseif @equ$(@upper$(@Mid $(@$(0),@Ajouter(@instr(|,@$(0)),1),@sub(@len(@$(0)),@instr(|,@$(0))))),PRFRUN32.EXE)

        let temp$=@par$(1) *.prc
        décomposer temp$

    d'autre

        let temp$=@par$(0) *.exe
        décomposer temp$

    endif

    let progpfad$=@Upper$(@left$(@$(0),@sub(@instr(|,@$(0)),1)))
    let Progname$=@upper$(@Mid $(@$(0),@Ajouter(@instr(|,@$(0)),1),@sub(@len(@$(0)),@instr(|,@$(0)))))
    Findfile @upper$(temp$)

    Si @equ$(@Trim$(@$(0)),)

        let Progpfad$=
        Laisser Progname$=
        declare tz$,mess$
        let tz$=Dateifehler
        let mess$=cela Programmverzeichnis konnte pas trouvé volonté, s'il te plaît
        starten vous cela Programme im eigenen Verzeichnis récente.
        @messagebox(mess$,tz$,16)

    endif

    Retour progpfad$

ENDPROC

Beispiel
PFAD Pfad ermitteln
PFAD$=@$(0) ici eh bien qui korrekte Pfad zum Programme
messagebox(pfad$,Programmverzeichnis:,4160)