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

Delphi Sources



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

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 10.07.2007, 09:54
Аватар для Денис
Денис Денис вне форума
Новичок
 
Регистрация: 23.05.2007
Сообщения: 57
Репутация: 10
По умолчанию запуск программы

как сделать чтоб программа запускалась при включении комьпьютера не добавляя её в автозагруску?
Ответить с цитированием
  #2  
Старый 10.07.2007, 10:20
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Curr ent Version\Run\
Ответить с цитированием
  #3  
Старый 10.07.2007, 10:22
Аватар для Денис
Денис Денис вне форума
Новичок
 
Регистрация: 23.05.2007
Сообщения: 57
Репутация: 10
По умолчанию

А можешь дать код пожайлуста? я в этом не очень понимаю!
Ответить с цитированием
  #4  
Старый 10.07.2007, 11:02
Аватар для Денис
Денис Денис вне форума
Новичок
 
Регистрация: 23.05.2007
Сообщения: 57
Репутация: 10
По умолчанию

Лучше бы конечно былобы еслиб ссылку дали где можно этот материал изучить!
Ответить с цитированием
  #5  
Старый 10.07.2007, 11:57
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Код:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses
  Registry;
var
  Reg:TRegistry;
begin
  Reg:=TRegistry.Create;
  try
    with Reg do
      begin
        RootKey:=HKEY_LOCAL_MACHINE;
        OpenKey('Software\Microsoft\Windows\Curr ent Version\Run\',False);
        WriteString('MyMegaProgram','C:\MyMegaProgram.exe');
        CloseKey;
      end;
  finally
    Reg.Free;
  end;
end;
ЗЫЖ Это будет работать только для пользователей с правами Администратора.
ЗЗЫЖ Возможны опечатки, т.к. набирал в окне "Быстрый ответ"
Ответить с цитированием
  #6  
Старый 10.07.2007, 12:16
Аватар для Денис
Денис Денис вне форума
Новичок
 
Регистрация: 23.05.2007
Сообщения: 57
Репутация: 10
По умолчанию

Ок спасибо большое!!!
А чтобы удалить нужно вместо WriteString написать
Код:
1
DeleteValue('MyMegaProgramm')
Ответить с цитированием
  #7  
Старый 10.07.2007, 12:18
Аватар для Денис
Денис Денис вне форума
Новичок
 
Регистрация: 23.05.2007
Сообщения: 57
Репутация: 10
По умолчанию

Я нашёл один пример тока там где OpenKey 2ой параметр не false а true можете объяснить что он даёт
Ответить с цитированием
  #8  
Старый 10.07.2007, 12:34
Аватар для Aristarh Dark
Aristarh Dark Aristarh Dark вне форума
Модератор
 
Регистрация: 07.10.2005
Адрес: Москва
Сообщения: 2,907
Версия Delphi: Delphi XE
Репутация: выкл
По умолчанию

Учимся самостоятельности
1. Для начала читаем справку:
Цитата:
...
CanCreate specifies whether to create the specified key if it does not exist. If CanCreate is true, the key is created if necessary.
...
2. (Не обязательное) Допускаю незнание даже основ "буржуйского" языка, поэтому идем на http://www.google.com/translate_t и переводим

ЗЫЖ При значении True ключ реестра создается если его не было. Данный ключ заведомо существует.
Ответить с цитированием
  #9  
Старый 11.07.2007, 01:52
Аватар для Денис
Денис Денис вне форума
Новичок
 
Регистрация: 23.05.2007
Сообщения: 57
Репутация: 10
По умолчанию

Просто я очень ленивый человек ОГРОМНОЕ СПАСИБО!!!
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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