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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 25.07.2010, 15:31
hugolom hugolom вне форума
Новичок
 
Регистрация: 25.04.2010
Сообщения: 99
Репутация: 9
По умолчанию Запуск программы после перезагрузки

Можно ли сделать так чтоб программа запускалась только после перезагрузки,

т.е. когда чел кликнул по программе она прописалась в автозапуск, но не запустилась и только после перезагрузки она запустилась.
прописать в автозапуск это понятно, надо чтоб при 1ом клики она не запустилась,А только прописалась в автозапуск.

Или при 2й запуске изменить интервал таймера, возможно ли так?
Ответить с цитированием
  #2  
Старый 25.07.2010, 23:16
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Ну так и делайте, проверяете при запуске вашей проги наличие ссылки на программу в разделе автозапуска. В случае отсутствия добавляете ссылку и завершаете работу программы, иначе запускаете основное тело проги.
А вот с таймером не понял, что вы хотели сделать.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #3  
Старый 26.07.2010, 15:02
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

а если еще раз кликнуть?
ведь запустится)
Ответить с цитированием
  #4  
Старый 26.07.2010, 19:27
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

Вообще без запуска не выйдет, другое дело что будет отработан минимум кода на проверку ссылки в автозапуске. Для пользователя это вообще будет незаметно.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #5  
Старый 26.07.2010, 19:29
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

ну я и имел в виду
Цитата:
основное тело проги
Ответить с цитированием
  #6  
Старый 26.07.2010, 19:55
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,093
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

сделй запуск с параметром.
если прога запускается без параметра, то просто прописывает себя в автозапуск и завершается. Если запускается с параметром, то трет автозапуск и запускается нормально.
Ответить с цитированием
  #7  
Старый 26.07.2010, 20:09
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,723
Репутация: 52347
По умолчанию

С чего вдруг?
Примерно это будет так:
Код:
 
program MyApp;
{$APPTYPE CONSOLE}
uses
SysUtils, Registry, Windows, Dialogs;
procedure RunOnWinStart(ApTitle, ApPathFile: string;
RunOnce: Boolean);
var
Reg: TRegistry;
TheKey: string;
begin
Reg := TRegistry.Create;
Reg.RootKey := HKEY_LOCAL_MACHINE;
TheKey := 'Software\Microsoft\Windows\CurrentVersion\Run';
if RunOnce then TheKey := TheKey + 'Once';
Reg.OpenKey(TheKey, False);
if Reg.ReadString(ApTitle) = ''
then begin
Reg.WriteString(ApTitle, ApPathFile);
end
else begin
ShowMessage('Ключ создан. Запуск основной программы')
end;
Reg.CloseKey;
Reg.Free;
end;
begin
RunOnWinStart('MyApp','C:\Program Files\Borland\Delphi7\Projects\MyApp.exe',False);
end.
 
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.

Последний раз редактировалось Страдалецъ, 26.07.2010 в 22:28.
Ответить с цитированием
  #8  
Старый 26.07.2010, 20:24
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
С чего вдруг?
ну так я и говорю, что первый запуск программы пользователем только создает ключ, а второй уже запускает основной модуль, в данном случае выводит сообщение, которое должно быть выведено по задумке автора только при автозапуске!!! при нескольких запусках программы сообщения (запуска основной части прораммы) не должно быть. автор, я праильна понял?

Последний раз редактировалось NumLock, 26.07.2010 в 20:26.
Ответить с цитированием
  #9  
Старый 26.07.2010, 22:09
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

автор попробуй http://data.cod.ru/64036 это так, как нужно?
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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