<p>例としてエディットボックスにアプリケーションのEXE名を表示します。</p>
<pre class="brush: delphi;">
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
  private
  { Private 宣言 }
  public
  { Public 宣言 }
  end;

var
 Form1: TForm1;

implementation

uses
 Filectrl;

{&#36;R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edit1.Text := MinimizeName(Application.ExeName, Canvas, Edit1.Width);
end;
</pre>