Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

Работа с реестром,запуск проги при старте OC   Найти похожие ветки 

← →
MakedoneZ ©   (2005-09-26 16:56) [0]

Что и как надо вписать в реестр,чтоб заставить программу автоматически запускаться,при загрузке ОС?
Заранее спасибо.

---

← →
Vladimir88   (2005-09-26 17:05) [1]

Надо создать службу, просто пропиской в реестре запуститься только при входе пользователя

---

← →
isasa ©   (2005-09-26 17:09) [2]

Только для сеанса данного пользователя
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run]
<key>=<полный путь к исполняемому файлу>

Для всех пользователей
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run]
<key>=<полный путь к исполняемому файлу>

---

← →
umbra ©   (2005-09-26 17:12) [3]

В разделе
HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run

надо создать строчный параметр с любым именем, а в значении - полный путь к проге. Тогда при входе каждого юзера прога будет запускаться от имени этого юзера и с его правами.

---

← →
MakedoneZ ©   (2005-09-26 18:07) [4]

Спасибо всем.
Попробую.

PS.Может посоветуете какую нибудь книгу,в которой подробно,и для начинающего,написано про работу с реестром через Delphi?
Если знаете где достать в электронном виде,то это было бы просто прекрасно.

---

← →
umbra ©   (2005-09-26 18:15) [5]

поищи в хелпе TRegistry

---

← →
MakedoneZ ©   (2005-09-26 19:18) [6]

Сэнкс!
Нашел много полезного.

---

← →
vertal ©   (2005-09-27 03:02) [7]


const
 AutoRunKey = "Software\Microsoft\Windows\CurrentVersion\Run";

procedure TfmMain.SetAutoStart(AAutoStart: Boolean);
var
 TR: TRegistry;
begin
 TR := TRegistry.Create;
 try
   TR.RootKey := HKEY_CURRENT_USER;
   TR.OpenKey(AutoRunKey, True);
   case AAutoStart of
     False:
       TR.DeleteValue(Application.Title);
     else
       TR.WriteString(Application.Title, """ + Application.ExeName + """);
   end;//case
   TR.CloseKey;
 finally
   TR.Free;
 end;
end;

function TfmMain.GetAutoStart: Boolean;
var
 TR: TRegistry;
 t: string;
begin
 Result := False;
 TR := TRegistry.Create(KEY_READ);
 try
   TR.RootKey := HKEY_CURRENT_USER;
   TR.OpenKeyReadOnly(AutoRunKey);
   t := TR.ReadString(Application.Title);
   if Length(t) <= 2 then
     Exit;
   Result := Copy(t, 2, Length(t) - 2) = Application.ExeName;
   TR.CloseKey;
 finally
   TR.Free;
 end;
end;


---

← →
Джо ©   (2005-09-27 06:06) [8]

>  [3] umbra ©   (26.09.05 17:12)
> В разделе
> HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run
> надо создать строчный параметр с любым именем, а в значении
> - полный путь к проге. Тогда при входе каждого юзера прога
> будет запускаться от имени этого юзера и с его правами.

Неверно.

---

← →
Viktop   (2005-09-27 10:02) [9]

А кто-нибудь знает как сделать так, чтобы прога запускалась при старте Windows, но не через реестр. Такой метод вроде трояны используют

---

← →
Игорь Шевченко ©   (2005-09-27 15:10) [10]

Viktop   (27.09.05 10:02) [9]

И зачем нужен еще один троян ?

---

← →
Viktop   (2005-09-27 15:26) [11]

Почему-то только на этом форуме многие вопросы сводятся к: Трояна писать собрался.
Впринципе ответ на вопроснашёл. Пошёл писать трояна :)))

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.039 c