[xtnk]

Здравствуйте! Как можно сделать авто загрузку и сворачивание в трей при авто загрузке??? Скриншот прилагаю

[lmikle]

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

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;

[xtnk]

а где это все прописывать, а то я спустя 10 лет решил что то для себя написать и подзабыл многое

[lmikle]

Ну я же написал.
Первый блок используется в окне настроек. Если у тебя это пункт меню, то можно чтение прописать при создании формы, запись, соответственно, при клике пункта меню.
Второй блок - это собственно обработка при старте приложения (в примере написано, что этот код должен быть в FormCreate).

[xtnk]

Всё круто, но валят ошибки

[lmikle]

Какие ошибки?
Да, этот код написан для Delphi 7, на новых, возможно, надо чуть чуть доработать...

[xtnk]

нее я пользуюсь delphi 7

[xtnk]

Сообщение от lmikle

Какие ошибки?
Да, этот код написан для Delphi 7, на новых, возможно, надо чуть чуть доработать...

[lmikle]

Ну, дык, CheckBox на форму кто будет класть?
Имя у него такое - cbWinStart.
Если я правильно помню, то это из формы настроек.