![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Можно ли сделать так чтоб программа запускалась только после перезагрузки,
т.е. когда чел кликнул по программе она прописалась в автозапуск, но не запустилась и только после перезагрузки она запустилась. прописать в автозапуск это понятно, надо чтоб при 1ом клики она не запустилась,А только прописалась в автозапуск. Или при 2й запуске изменить интервал таймера, возможно ли так? |
#2
|
||||
|
||||
![]() Ну так и делайте, проверяете при запуске вашей проги наличие ссылки на программу в разделе автозапуска. В случае отсутствия добавляете ссылку и завершаете работу программы, иначе запускаете основное тело проги.
А вот с таймером не понял, что вы хотели сделать. Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
||||
|
||||
![]() а если еще раз кликнуть?
ведь запустится) |
#4
|
||||
|
||||
![]() Вообще без запуска не выйдет, другое дело что будет отработан минимум кода на проверку ссылки в автозапуске. Для пользователя это вообще будет незаметно.
Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#5
|
||||
|
||||
![]() ну я и имел в виду
Цитата:
|
#6
|
|||
|
|||
![]() сделй запуск с параметром.
если прога запускается без параметра, то просто прописывает себя в автозапуск и завершается. Если запускается с параметром, то трет автозапуск и запускается нормально. |
#7
|
||||
|
||||
![]() С чего вдруг?
Примерно это будет так: Код:
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
|
||||
|
||||
![]() Цитата:
Последний раз редактировалось NumLock, 26.07.2010 в 20:26. |
#9
|
||||
|
||||
![]() автор попробуй http://data.cod.ru/64036 это так, как нужно?
|