不说了贴代码。 Uses IniFiles; const   SZ_APP_NAME = 'demo_test'; Procedure TForm1.GetSettings; var   _MemIniU: TMemIniFile;   _SettingsPath: string; begin   try     _SettingsPath := GetHomePath + PathDelim + SZ_APP_NAME