Delphi11 程序启动目录没有找到‘MODALITYInfo.ini’文件则退出

在Delphi 11中，如果程序启动时无法找到名为`MODALITYInfo.ini`的文件，通常会触发错误并导致程序退出。这是因为默认情况下，程序期望该配置文件位于程序的预期启动目录下。为了避免这种情况，你可以采取以下步骤：

1. **设置搜索路径**[^2]:
在Delphi中，可以通过设置`TIniFile`的`SearchPath`属性来指定查找ini文件的路径。例如：

   var
     IniFile: TIniFile;
   begin
     IniFile := TIniFile.Create;
     IniFile.SearchPath := 'C:\MyApp\'; // 或者其他可能的路径
     try
       // 读取ini文件...
     finally
       IniFile.Free;
     end;
   end;

这样，即使ini文件不在程序根目录，也会在指定的路径下查找。

2. **异常处理**:
如果`SearchPath`中找不到文件，可以在尝试读取之前添加异常处理代码，如`OnException`事件处理器：

   IniFile.OnException := procedure(const AException: Exception) do
     if AException.ClassName = 'EConfigFileNotFound' then
       ShowMessage('Could not find MODALITYInfo.ini');
     else
       Raise;
   end;

3. **资源管理**:
可以考虑将`MODALITYInfo.ini`作为资源嵌入到程序中，这样无论在哪种环境中，文件都会随程序一同加载。