Mam taką proce co zrobić, aby nie wyskakiwał mi błąd, jeśli plik jest tylko do odczytu. Próbowałem już wszystkiego i nic.
procedure TformAdmin.dxButton1Click(Sender: TObject);
const
my_key = 33189;
var
IniFile : TIniFile;
UserEdit_admin_Encrypted, PassEdit_admin_Encrypted,
NazwaPlikuEdit_admin_Encrypted : AnsiString;
begin
Path := ExtractFilePath(ParamStr(0));
IniFile := TIniFile.Create(Path + 'ustawienia.dat');
try
UserEdit_admin_Encrypted := Encrypt(UserEdit_admin.Text, my_key);
PassEdit_admin_Encrypted := Encrypt(PassEdit_admin.Text, my_key);
NazwaPlikuEdit_admin_Encrypted := Encrypt(NazwaPlikuEdit_admin.Text,
my_key);
IniFile.WriteString('Ustawienia.dat', 'Użytkownik',
UserEdit_admin_Encrypted);
IniFile.WriteString('Ustawienia.dat', 'Hasło', PassEdit_admin_Encrypted);
IniFile.WriteString('Ustawienia.dat', 'Nazwa pliku',
NazwaPlikuEdit_admin_Encrypted);
finally
IniFile.Free;
end;
end;