XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - Pfad-Teil anhängen
Hängt einen Pfadteil an, wenn kein Backslash dazwischen ist wird einer eingefügt
Autor:Dieter Zornow
free
DEF PathAppend(2) ! shlwapi,PathAppendA

Proc AddPath

    parameters pfad1$,pfad2$
    Declare pfad#
    Dim pfad#,261
    string pfad#,0 = pfad1$
    PathAppend(pfad#,addr(pfad2$))
    pfad1$ = string$(pfad#,0)
    Dispose pfad#
    return pfad1$

endproc

cls
Print AddPath(c:Temp,TestBinTest.exe)
waitinput