長いファイル名の途中を省略する

よくセットアップのファイルコピーなどで パス＋ファイル名が長くてダイアログに収まらない場合にパスの途中を ... で省略している事があります。Delphiにはこれを実現する MinimizeName関数があります。
引数に ファイル名と Canvas、収めたい幅 (ピクセル) を指定します。

※uses節に Filectrl ユニットを追加します。

■ 長いファイル名の途中を省略する例 
  procedure TForm1.Button1Click(Sender: TObject);
  begin
      //パネルの幅に収まるように
      Panel1.Caption  :=  MinimizeName( Application.ExeName,
                                        Canvas,
                                        Panel1.Width);
  end;