declari variabilele inaltime, latime in interface de exemplu dupa form:
CODE
var
Form1: TForm1;
inaltime, latime: integer;
Load Settings:
// 300, 200 sunt valorile standard in cazul in care settings.ini nu exista sau nu contine valori pt Inaltime, Latime
CODE
procedure LoadSettings;
var
i: tinifile;
begin
i := tinifile.Create(extractfilepath(application.exename) + 'settings.ini');
inaltime := i.ReadInteger('Setari_fereastra', 'Inaltime', 300);
latime := i.ReadInteger('Setari_fereastra', 'Inaltime', 200);
i.free;
end;
Save Settings:
CODE
procedure SaveSettings;
var
i: tinifile;
begin
i := tinifile.Create(extractfilepath(application.exename) + 'settings.ini');
i.WriteInteger('Setari_fereastra','Inaltime',inaltime);
i.WriteInteger('Setari_fereastra','Latime',latime);
i.UpdateFile;
i.free;
end;