Ох, старый я стал, подозрительный.... простите меня, добрый человек, ошибочка вышла )))
Вот пример кода, который выполняется при старте приложения и читает данные из файла settings.ini:
procedure Init;
var
tmpIniFile:TIniFile;
begin
// инициализация системы лицензирования
tmpIniFile:=TIniFile.Create(Application.SettingsFile);
// владелец и ключ регистрации храним в файле настроек
LicenseOwner := tmpIniFile.ReadString('License','Owner',LICENSE_OWNER);
RegKey := tmpIniFile.ReadString('License','RegKey','');
tmpIniFile.free;
// после проверки лицензии устанавливается значение переменной Licenced;
CheckLicense;
// другие штуки
DBFileVer := GetBaseParam(PAR_BASE_VERSION); // версия файла базы данных
DBFileName := GetDBFileName(False); // файл базы данных
if DBFileVer = '' then
begin
SetBaseParam(PAR_BASE_VERSION,DEF_BASE_VERSION);
DBFileVer := GetBaseParam(PAR_BASE_VERSION);
end;
if NEED_CREATE_RMT then
begin
// инициализация системы прав
CreateRight;
CreateMenu;
CreateToolbar;
end;
end;
а так выглядит запись данных в этот файл:
// активация лицензии
procedure frmRegistration_btnActivate_OnClick (Sender: TObject; var Cancel: boolean);
var
tmpIniFile:TIniFile;
begin
RegKey := frmRegistration.edtLicenseKey.Text;
LicenseOwner := frmRegistration.edtLicenseOwner.Text;
CheckLicense;
if Licensed then
begin // записать ключ лицензии
tmpIniFile:=TIniFile.Create( Application.SettingsFile );
tmpIniFile.WriteString('License','RegKey',RegKey);
tmpIniFile.WriteString('License','Owner',LicenseOwner);
tmpIniFile.free;
ShowMessage(S_.REGISTRATION_DONE.Caption);
// вызвать обработчик, чтобы перерисовать заголовок основного окна
UpdateMainFormCaption;
// кроме того, там может быть различные штуки, которые зависят от регистрации
frmAbout_OnShow (frmAbout,'');
// закрыть форму
frmRegistration.Close;
end
else
begin
ShowMessage(S_.REGISTRATION_FAIL.Caption);
end;
end;
Вы в следующий раз уточняйте, о чем речь, чтобы людей не смущать и меня в грех не вводить. Лучше спрашивать такое в ветке про курсы или в группе VK
