![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | 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 это так, как нужно?
|