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