Форум по Delphi программированию

 



Вернуться   Форум по Delphi программированию > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 19.01.2021, 11:11
xtnk xtnk вне форума
Прохожий
 
Регистрация: 19.01.2021
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Автозагрузка и свернуть в трей

Здравствуйте! Как можно сделать авто загрузку и сворачивание в трей при авто загрузке??? Скриншот прилагаю
Ответить с цитированием
  #2  
Старый 20.01.2021, 02:05
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,645
Версия 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 просмотров)
Ответить с цитированием
  #3  
Старый 20.01.2021, 12:29
xtnk xtnk вне форума
Прохожий
 
Регистрация: 19.01.2021
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию круто

а где это все прописывать, а то я спустя 10 лет решил что то для себя написать и подзабыл многое
Ответить с цитированием
  #4  
Старый 20.01.2021, 19:41
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,645
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Ну я же написал.
Первый блок используется в окне настроек. Если у тебя это пункт меню, то можно чтение прописать при создании формы, запись, соответственно, при клике пункта меню.
Второй блок - это собственно обработка при старте приложения (в примере написано, что этот код должен быть в FormCreate).
Ответить с цитированием
  #5  
Старый 21.01.2021, 12:50
xtnk xtnk вне форума
Прохожий
 
Регистрация: 19.01.2021
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Ошибки

Всё круто, но валят ошибки
Ответить с цитированием
  #6  
Старый 22.01.2021, 13:19
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,645
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Какие ошибки?
Да, этот код написан для Delphi 7, на новых, возможно, надо чуть чуть доработать...
Ответить с цитированием
  #7  
Старый 23.02.2021, 07:57
xtnk xtnk вне форума
Прохожий
 
Регистрация: 19.01.2021
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию дельфа

нее я пользуюсь delphi 7
Ответить с цитированием
  #8  
Старый 23.02.2021, 08:03
xtnk xtnk вне форума
Прохожий
 
Регистрация: 19.01.2021
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию ошибка

Цитата:
Сообщение от lmikle
Какие ошибки?
Да, этот код написан для Delphi 7, на новых, возможно, надо чуть чуть доработать...
Ответить с цитированием
  #9  
Старый Вчера, 04:38
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 7,645
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

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



Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 05:05.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2021

ВКонтакте   Facebook   Twitter