Добрый день.
Подскажите, как можно шифровать при сохранении в ini файл, ну и соответственно расшифровывать при загрузке.
Код следующий:
procedure TForm1.FormCreate(Sender: TObject);
var
ini: TIniFile;
begin
ini := TIniFile.Create(GetAppPath+‘options.ini‘);
try
with ini do
begin
Width := ReadInteger(‘Form‘, ‘Width‘, 343);
Height := ReadInteger(‘Form‘, ‘Height‘, 178);
Left := ReadInteger(‘Form‘, ‘Left‘, 424);
Top := ReadInteger(‘Form‘, ‘Top‘, 142);
Edit2.text:=ReadString(‘Pause‘,‘Enter‘,‘‘);
Edit3.text:=ReadString(‘Pause‘,‘Search‘,‘‘);
Edit4.text:=ReadString(‘Pause‘,‘Exit‘,‘‘);
end;
finally
ini.Free;
end;
end;
-----------------------------------------------------------------
procedure TForm1.FormDestroy(Sender: TObject);
var
ini: TIniFile;
begin
ini := TIniFile.Create(GetAppPath+‘options.ini‘);
try
with ini do
begin
if WindowState <> wsMaximized then
begin
WriteInteger(‘Form‘, ‘Width‘, Width);
WriteInteger(‘Form‘, ‘Height‘, Height);
WriteInteger(‘Form‘, ‘Left‘, Left);
WriteInteger(‘Form‘, ‘Top‘, Top);
end;
begin
WriteString(‘Pause‘,‘Enter‘,Edit2.text);
WriteString(‘Pause‘,‘Search‘,Edit3.text);
WriteString(‘Pause‘,‘Exit‘,Edit4.text);
end;
end;
finally
ini.Free;
end;
end;
С Уважением, Алексей