как поместить программу в автозапуск?

[Alar]

перенесено со старого форума. сообщение от A-leXey.

как поместить программу в автозапуск?

перенесено со старого форума. сообщение от zetrix.

var
reg:Tregistry;
begin
reg:=Tregistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey('Software\Microsoft\Win dows\CurrentVersion\Run',false);
reg.WriteString('имя проги (любое)','Путь к исполняемому файлу');
reg.Free;
end;

[Ярослав]

Сообщение от Alar

reg.WriteString('имя проги (любое)','Путь к исполняемому файлу');

Уважаемый Alar
А как быть если прогу устанавливать не в определенный путь?
Или исполняемый файл скопировать не в определенный путь?

[mutabor]

Ты вообще представляешь что такое автозапуск? Это где-то хранится путь к твоей проге, если путь неправильный ничего не запустится.

[Alex21]

Сообщение от Ярослав

Уважаемый Alar
А как быть если прогу устанавливать не в определенный путь?
Или исполняемый файл скопировать не в определенный путь?

Поиск по форуму ShellExecute и WinExec.

[Terran]

Вот хороший пример:

Uses
Registry...;

Var
RegIni:TregIniFile;
Begin
RegIni:=TregIniFile.Create('Software');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',True);
RegIni.WriteString('Run','volumedriver.exe',Application.ExeName);
RegIni.Free;
End;

И не надо больше ничего лишнего путь к проге пишется автоматически.

[Alex.rus]

Вот вроде тоже нормальный пример только прописывается в hkey_current_user.
paramstr(0)-путь к файлу.

Uses
Registry...;

procedure Registry;
var
 reg:TRegistry;
begin
reg:=tregistry.Create;
reg.RootKey:=hkey_current_user;
if reg.OpenKey('software\microsoft\windows\currentversion\run',true) then
 begin
  reg.WriteString('Name',paramstr(0));
  reg.CloseKey;
 end;
reg.Free;
end;

[Ярослав]

Спасибо
Не получилось грузит папку (D:\Программы) В чём ошибка понять не могу
вот исходник

[Ярослав]

Сообщение от Terran

Вот хороший пример:

Uses
Registry...;
Var
RegIni:TregIniFile;
Begin
RegIni:=TregIniFile.Create('Software');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion',True);
RegIni.WriteString('Run','volumedriver.exe',Application.ExeName);
RegIni.Free;
End;

И не надо больше ничего лишнего путь к проге пишется автоматически.

Можете пояснить (понял примерно если можно подробней что к чему)
или исправить исходник (смотри выше)

[Terran]

Я скомпелировал тот исходник! Всё работает нормально!

[Terran]

Uses
Registry...;

Var
\\Объявляем переменную типа TRegIniFile. С помощью этой переменной \\будем общаться с реестром.
RegIni:TregIniFile; Begin
\\Инициализируем переменную указывающую на реестр.
RegIni:=TregIniFile.Create('Softwar e');
\\Говорим что нас интересует раздел HKEY_LOCAL_MACHINE реестра.
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
\\открываем нужный нам путь .
RegIni.OpenKey('SOFTWARE\Microsoft\ Windows\CurrentVersion',True);
\\Записываем значение.
RegIni.WriteString('Run','volumedri ver.exe',Application.ExeName);
\\Унечтожаем.
RegIni.Free;
End;

HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows\CurrentVersion\Run\ - Путь автозапуска в реестре. Этих путей может быть очень много, это только один из них.

Путь к ехе файлу записывается в реестре сам.

С уважением Terran.