XProfan

 $H Windows.ph
CLS
SetStyle %hWnd,1,(GetStyle(%hWnd,1) | ~WS_CLIPCHILDREN  | $2000000)
Var edit& = Create("Text",%hwnd,"",10,10,110,24)
Var Pfad$ = "C:\\Test\\test\\Test\\kuckuck\\aha.prf"
WaitInput
SetText Edit&,minmizename(Pfad$,edit&,width(edit&))
WaitInput
End

Proc MinmizeName

    PARAMETERS FName$,Ct&,MaxLen&
    Declare R#,Result$
    Dim R#,16
    Var b$ = Fname$
    LONG R#,0 = 0,0,Maxlen&,0

    If ~DrawText(~GetDC(CT&), Addr(b$),Len(b$),R#,~DT_SINGLELINE | ~DT_MODIFYSTRING | ~DT_PATH_ELLIPSIS | ~DT_CALCRECT | ~DT_NOPREFIX) > 0

        Result$ = b$

    Else

        Result$ = b$

    EndIf

    Dispose R#
    Return result$

EndProc