procedure TFMain.FormCreate(Sender: TObject);
var
Reg: TRegistry;
i: integer;
begin
LoadLangs();
try
Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_CURRENT_USER;
Reg.OpenKey('\Software\KMem', true);
if Reg.ValueExists('Speed') = false then Reg.WriteInteger('Speed', 3);
if Reg.ValueExists('StartUp') = false then Reg.WriteBool('StartUp', true);
if Reg.ValueExists('Ico') = false then Reg.WriteBool('Ico', true);
if Reg.ValueExists('Lang') = false then Reg.WriteString('Lang', 'spanish');
i:= langbox.Items.IndexOf(Reg.ReadString('Lang'));
if i > -1 then
begin
langbox.ItemIndex:= i;
langbox.OnChange(sender);
end;
tbTime.Position:= Reg.ReadInteger('Speed');
CheckBox1.Checked:= Reg.ReadBool('StartUp');
CheckBox2.Checked:= Reg.ReadBool('Ico');
finally
Reg.Free;
end;
try
Reg:= TRegistry.Create;
Reg.RootKey:= HKEY_LOCAL_MACHINE;
Reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', false);
Reg.WriteString('KMem', Paramstr(0));
finally
Reg.free;
end;
If CheckBox2.Checked = false then TrayIcon1.Visible:= false;
end;