Показать сообщение отдельно
  #2  
Старый 20.01.2021, 02:05
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,694
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Приложил файлик с функциями.

function ReadRegAutoRun(ARegRootKey : TRegRootKey; AKeyName : String = ''; AParams : String = '') : Boolean;
Читает ключ для автозапуска

procedure WriteRegAutoRun(ARegRootKey : TRegRootKey; AKeyName : String = ''; AParams : String = '');
Пишет ключ для автозапуска

procedure DeleteRegAutoRun(ARegRootKey : TRegRootKey; AKeyName : String = '');
Удаляет ключ для автозапуска

Пример использования.
В форме настройки:
Код:
  // Read autostart status
  cbWinStart.Checked := ReadRegAutoRun(rkUser,'VisualReminder','auto');
  cbWinStartMin.Enabled := cbWinStart.Checked;
  ...
  // Write autostart status
  If cbWinStart.Checked
    Then WriteRegAutoRun(rkUser,'VisualReminder','auto')
    Else DeleteRegAutoRun(rkUser,'VisualReminder');

Соответсвенно, в основной программе (в FormCreate):
Код:
  If ParamCount > 0 Then
    If (CompareStr(ParamStr(1),'auto') = 0) And (FPreferences.StartMinimized)
      Then Application.ShowMainForm := False;
Вложения
Тип файла: pas RegAutoRun.pas (2.6 Кбайт, 0 просмотров)
Ответить с цитированием