Dir kann geholfen werden.
Ich bin der selben Meinung wie Luckie, mit Hilfe von SS_PATHELIPSIS ist es recht einfach und schneller
einen Pathnamen ausf das Wesentliche zu kürzten.
Delphi-Quellcode:
procedure TFormX.SetStaticTextPathEllipsis(aStaticText: TStaticText);
var scStyle: Integer;
begin
scStyle := GetWindowLong(aStaticText.Handle, GWL_STYLE);
scStyle := scStyle or SS_PATHELLIPSIS or SS_LEFTNOWORDWRAP;
SetWindowLong(aStaticText.Handle, GWL_STYLE, scStyle);
end;
procedure TFormX.FormShow(Sender: TObject);
begin
SetStaticTextPathEllipsis(StaticText1);
end;