XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - letzten Teil des Pfades zurückgeben
gibt den letzten Teil des Pfades zurück
DEF PathStripPath(1) ! SHLWAPI.DLL,PathStripPathA

proc StripPath Ergebnis Filename oder letzter Teil des Pfades

    parameters Pfad$
    Declare Result#,result$
    Dim Result#,261
    string result#,0 = pfad$
    PathStripPath(result#)
    result$ = string$(result#,0)
    Dispose result#
    return result$

endproc

cls
Print StripPath(C:\Temp\Test.exe)
waitinput