[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: Nionov  
Форум » Программирование » Pascal/Delphi » [Delphi] Сохранение данных в реестре
[Delphi] Сохранение данных в реестре
RainbowДата: Понедельник, 17.06.2019, 23:31 | Сообщение # 1

-= Повелитель кодеров =-
Сообщений: 146
Награды: 0
Репутация: 4279
Статус:
Кидаем в код константу:

Код
const
REGISTERKEY = '(например: auth)';


Сохранение данных (например для авторизации), через реестр.

Код
function _SaveData: Boolean;
var
  Reg: TRegistry;
begin
  Reg:= TRegistry.Create;
  Reg.RootKey:= HKEY_CURRENT_USER;
  if not Reg.KeyExists('Software\Software By m0nr\' + REGISTERKEY) then
  begin
    Reg.CreateKey('Software\Software By m0nr\' + REGISTERKEY);
  end;
  Reg.OpenKey('Software\Software By m0nr\' + REGISTERKEY, False);
  Reg.WriteString('Login', StringToBytes(Form1.Edt1.Text));
  Reg.WriteString('Pass', StringToBytes(Form1.Edt2.Text));
  Reg.CloseKey;
  Reg.Free;
end;


Используется при верном введении данных, при активном checkbox'e:

Код
if (проверка) then  begin
if sCheckBox1.Checked then begin
   _SaveData; end;
<какой-то код>
end else  begin
  ShowMessage(Ошибочка); end;


А теперь загрузка ранее сохранённых данных при открытии приложения:

Код
function _GetData: Boolean;
var
  Reg: TRegistry;
begin
  Reg:= TRegistry.Create;
  Reg.RootKey:= HKEY_CURRENT_USER;
  if Reg.KeyExists('Software\Software By m0nr\' + REGISTERKEY) then
  begin
    Reg.OpenKey('Software\Software By m0nr\' + REGISTERKEY, False);
    Form1.Edt1.Text:= BytesToString(Reg.ReadString('Login'));
    Form1.Edt2.Text:= BytesToString(Reg.ReadString('Pass'));
  end;
  Reg.CloseKey;
  Reg.Free;
end;


Form.Create:

Код
procedure TForm1.FormCreate(Sender: TObject);
begin
_GetData;
end;
 
Форум » Программирование » Pascal/Delphi » [Delphi] Сохранение данных в реестре
  • Страница 1 из 1
  • 1
Поиск: