void __fastcall TForm1::Button1Click(TObject *Sender)
{
  ShowMessage("完整路徑 檔名: "   Application->ExeName);
  ShowMessage("完整路徑: "   ExtractFilePath(Application->ExeName));
}