XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
API: SHLWAPI.DLL - Pfad auf gewünschte Länge formatieren
DEF PathCompactPath(3) ! SHLWAPI,PathCompactPathA
DEF GetDC(1) ! USER32,GetDC
DEF GetWindowDC(1) ! USER32,GetWindowDC
DEF ReleaseDC(2) ! USER32,ReleaseDC

proc FormatPfad convertiert pfad auf gewünschte Länge

    parameters what%,Pfad$,width&
    Declare Result#,result$,dc&
    Dim Result#,261
    string result#,0 = pfad$
    case what% = 1:dc& = GetWindowDC(GetactiveWindow()) ganzes Fenster
    case what% = 2:dc& = GetDC(GetactiveWindow()) client
    PathCompactPath(dc&,result#,width&)
    result$ = string$(result#,0)
    Dispose result#
    ReleaseDC(GetactiveWindow(),dc&)
    return result$

endproc

window 0,0-310,100
Print Formatpfad(2,c:\Programmieren\FMOD SoundSystem\FMOD Programmers API\fmoddesignerapi\README.TXT,280)
waitkey