引用IniFiles单元。
var
xx: Tinifile;
path: string;
begin
path := ExtractFilePath(Paramstr(0))+'program.ini';
ShowMessage(path);
xx := TIniFile.Create(path);
xx.WriteString('mysql','host','192.168.0.3');
xx.WriteString('mysql','username','root');
xx.WriteString('mysql','password','root');
xx.WriteInteger('mysql','age',29);
xx.WriteString('oracle','host','192.168.0.3');
xx.WriteString('oracle','username','root');
xx.WriteString('oracle','password','root');
xx.WriteBool('oracle','sex',True);
// xx.UpdateFile;
end;
