delphi7去读配置文件信息


procedure TTcpForm.FormShow(Sender: TObject);
var
str:string;
MyIni: TIniFile;
begin
try
MyIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Setup.ini');
MyIni.ReadString('xxx标题', 'xxxkey','默认值');//读取配置文件信息
finally
MyIni.Free;
end;
end;