Несколько вопросов по автозагрузке и трее в Delphi

[raxp]

то и при запуске через exeшник программа запускается в свёрнутом виде (так быть не должно). Как сделать проверку: если программа запущена, то при нажатии на exeшник она разварачивается из трея или получает фокус, а если не запущена, то просто запустить её.

"давайте отделим мух от котлет":
1) вы хотите запустить программу в скрытом виде и должно быть наличие иконки в трее
2) вот это

Application.ShowMainForm := False или 
ShowWindow(Application.Handle, SW_HIDE);
ShowWindow(Application.MainForm.Han dle, SW_HIDE);

осуществляет скрытие приложения при запуске по formcreate
3) сворачивание или минимизация - это когда приложение присутствует на таскбаре в виде панельки
4) чтобы была иконка в трее нужно создать ее там, например через Shell_NotifyIcon или готовым компонентом, например cooltrayicon
5) необходимо назначить реакции на клики по иконке программы в трее (разворачивание и скрытие), теми-же showwindow

[TaYgA]

raxp, несовсем так.
1) Я хочу чтоб только при автозагрузке программа запускалась в скрытом виде, а если запускать через exeшник (когда программа не запущена) она запускалась в развёрнутом виде.
2) Если программа запущена но скрыта в трее, то при клике по exeшнику она разварачивалась (а не запускался ещё один проект).
3) Если программа запущена в развёрнутом виде то при клике по exeшнику она получала фокус (а не запускался ещё один проект).
Использую компонент cooltrayicon. Клик по иконке программы в трее, чтоб она разворачивалась я прописал.

[notHaker]

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

raxp, несовсем так.
1) Я хочу чтоб только при автозагрузке программа запускалась в скрытом виде, а если запускать через exeшник (когда программа не запущена) она запускалась в развёрнутом виде.
2) Если программа запущена но скрыта в трее, то при клике по exeшнику она разварачивалась (а не запускался ещё один проект).
3) Если программа запущена в развёрнутом виде то при клике по exeшнику она получала фокус (а не запускался ещё один проект).
Использую компонент cooltrayicon. Клик по иконке программы в трее, чтоб она разворачивалась я прописал.

1) Принимай параметр прогой. "C:\YourProgram.exe /hide" например в автозапуске. Если есть параметр /hide, то сворачивай.
2-3) Семафоры, семафоры... Поисчи на форуме, здесь же... 100% есть.
Вроде этого : "Как не допустить запуска второй копии программы". А отсальное дело техники...

ЫЗ: я не могу так слёту накодить те семафоры, тк давненько ими не занимался... надо бы память освежить. Если чего то не получится пиши.

[TaYgA]

notHaker, с 2 и 3 вроде всё ясно, поищу. А вот насчёт первого вопроса, что то совсем мутно Если вас не затруднит напишите пожалуйсто поподробней!!!

[notHaker]

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

notHaker, с 2 и 3 вроде всё ясно, поищу. А вот насчёт первого вопроса, что то совсем мутно Если вас не затруднит напишите пожалуйсто поподробней!!!

Ну например... Если бы вы запустили прогу из коммандной строки например так :
start C:\MyProgram.exe /hide
То после запуска, в программе можно вызвать функцию GetCommandLine. Она передаёт строку с коммандой (в данном случае "C:\MyProgram.exe /hide"). В библиотеке rxLib, есть функция отделяющая параметры от комманды. А дальше вам решать что с этими параметрами делать, это же данные... Что роисходит при автозапуске :

То же самое... Только коммандную строку вызываете не вы, а система. И система выполняет комманду (абстрактно говоря ) прописанную в автозапуске.

[Stilet]

В библиотеке rxLib, есть функция отделяющая параметры от комманды.

К черту сторонние библиотеки, когда есть стандартные классические средства - ParamCount и ParamStr;

[raxp]

1) Я хочу чтоб только при автозагрузке программа запускалась в скрытом виде, а если запускать через exeшник (когда программа не запущена) она запускалась в развёрнутом виде.

значит проверяйте есть-ли ключ в автозагрузке в formcreate, если есть - то скрывать, если нет - показывать

2) Если программа запущена но скрыта в трее, то при клике по exeшнику она разварачивалась (а не запускался ещё один проект).

используйте проверку на запущенную копию в dpr до инициализации, например globaladdatom

begin
  //антизапуск 2-копии
  PIWin := FindWindow(WINDOWCLASSNAME, NIL);
  if PIWin <> 0 then
    begin
     if Paramcount = 0 then halt;
     AtomFN := GlobalAddAtom(pChar(paramstr(0)));
     PostMessage(PIWin, CM_OPENFILE, AtomFN, 0);
     halt;
    end;
  //Run program
  Application.Initialize;
...

и считывание командной строки paramstr, как уже подсказал уважаемый Stilet

3) Если программа запущена в развёрнутом виде то при клике по exeшнику она получала фокус (а не запускался ещё один проект).

см. пункт 2

[notHaker]

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

К черту сторонние библиотеки, когда есть стандартные классические средства - ParamCount и ParamStr;

Верте или нет. Такую функцию ток в rxLib видел, и у меня исторически сложилось, что када GetCommandLine юзал, то отделяющую функцию сам и написал.

[Stilet]

то отделяющую функцию сам и написал.

...что тоже есть вариант...

[TaYgA]

Никак не могу разобраться с этой темой.
1)

значит проверяйте есть-ли ключ в автозагрузке в formcreate

Как это проверить?

FileExists

Я думаю не подойдёт, а подругому я не умею
2)

begin
  //антизапуск 2-копии
  PIWin := FindWindow(WINDOWCLASSNAME, NIL);
  if PIWin <> 0 then
    begin
     if Paramcount = 0 then halt;
     AtomFN := GlobalAddAtom(pChar(paramstr(0)));
     PostMessage(PIWin, CM_OPENFILE, AtomFN, 0);
     halt;
    end;
  //Run program
  Application.Initialize;
...

В какой процедуре это прописывать?