Per prima cosa dichiara nelle uses la clausola INIFILES.
//CREAZIONE DEL FILE INI
procedure TForm2.Exit1Click(Sender: TObject);
var
ini:Tinifile;
begin
Ini := TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.ini');
try
ini.WriteString('Dati','Username',Username.text);
ini.WriteString('Dati','Password',Password.text);
ini.WriteString('Rete','HeloName',Helo.text);
finally
ini.Free;
end;
close
end;
//LETTURA DEL FILE INI
procedure TForm2.FormCreate(Sender: TObject);
var
ini:Tinifile;
begin
ini:= Tinifile.Create(extractfilepath(paramstr(0))+'Config.ini');
try
Username.text:= ini.ReadString('Dati','Username','');
Password.text:= ini.ReadString('Dati','Password','');
Helo.text:= ini.ReadString('Rete','HeloName','');
finally
ini.Free;
end;
end;
end;