字符串显示文件名的问题

Question

在窗体上放一个Label1控件,用来显示正在操作的文件名,但是文件名太长的话,会超出窗体的宽度,能不能自动的将前面的文件变成下列格式.
C:\My Documents\新建文件夹\site=cntom&channel=news&layer=2&subtree=2&location=R06&target=_blank[1].list
显示成
C:\..\新建文件夹\site=cntom&channel=news&layer=2&subtree=2&location=R06&target=_blank[1].list

Answer 1

//unit FileCtrl platform;
//function MinimizeName(const Filename: TFileName; Canvas: TCanvas;
//  MaxLen: Integer): TFileName;//参考如下代码～～
uses FileCtrl;//...
begin
  Label1.Caption := MinimizeName('D:\Program Files\Borland\Delphi8', Label1.Canvas, Label1.Width);
end;