怎样取得应用程序自己的名字？

Question

The following example uses EXEName to locate a data directory of the application directory.
procedure TForm1.Button1Click(Sender: TObject);begin
  Table1.DatabaseName := ExtractFilePath(Application.EXEName) + 'Data';
  Table1.TableName := 'Animals.dbf';
  Table1.Active := True;
end;

Answer 1

有三种办法：Application.EXEName 或者extractfilename()函数paramstr(0)

Answer 2

hwill(潜龙在渊)　包括路径在内的，提取程序名字用：
ExtractFileName(Application.ExeName)

Answer 3

或者用liuxuqi(lusus)所说的：ExtractFileName(paramstr(0))

Answer 4

Application.exename or paramstr(0)

Answer 5

application.exename 或 paramstr(0);