реестр

[Михаил Юрьевич]

Подскажите код что бы одна программа при своем закрытии
прописала бы в реестр на автозагрузку другую программу

[Terran]

Можешь сделать так:

Uses
Registry, ...


Procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Var
RegIni:TregIniFile;
Begin
RegIni:=TregIniFile.Create('Softwar e');
RegIni.RootKey:=HKEY_LOCAL_MACHINE;
RegIni.OpenKey('SOFTWARE\Microsoft\ Windows\CurrentVersion',True);
RegIni.WriteString('Run','ssrc.exe' ,'C:\1.exe');
RegIni.Free;
End;

Где 'ssrc.exe' - это имя параметра в реестре, а 'C:\1.exe' - путь к проге которую хочешь записать в автозагрузку.

[Лубышев]

Может так всетаки лучше и понятнее и нагляднее:

Uses Registry, ...

....
var
Run:tregistry;
begin
Run:=TRegIniFile.Create();
Run.RootKey:=HKEY_Local_Machine;
Run.OpenKey('Software\Microsoft\Win dows\CurrentVersion\Run', true);
Run.WriteString('propiska', 'C:\propiska.exe');
Run.Free;
end;


'propiska' - параметр (у тебя он будет называться так, как сам захочешь)
'C:\propiska.exe' - путь к программе, он у тебя будет тоже другой


Можно вообщето было и в другие места прописать, но и так пойдет...

[Михаил Юрьевич]

А если я не знаю путь куда распакуют мою программу или диск другой

[Stilet]

Че эт ты его не знаешь?
Знаешь - ExtractFilePath(paramstr(0));

И вообще по хорошему нужно инсталятором такие веши делать

[Лубышев]

Путь к проге можно узнать так Application.ExeName
или так: ParamStr(0) или через API вот так:GetCommandLine

для Application.ExeName нужен модуль forms Чаще всего он присутствует, но бывают исключения

[Лубышев]

Вот, господа готовый код

uses
Registry;
...

var
Run:Tregistry;

begin
Run:=TRegIniFile.Create();
Run.RootKey:=HKEY_Local_Machine;
Run.OpenKey('Software\Microsoft\Win dows\CurrentVersion\Run', true);
Run.WriteString('Proga', ParamStr(0)); // Прописка программы в автозапуске
Run.Free;
end;

[Istergul]

лично у меня почему-то програмно ничего в реестре не прописывается( я даже не знаю почему(

[Михаил Юрьевич]

Вот этот работает

Reg := TRegistry.Create;
Reg.RootKey := hkey_current_user;
Reg.OpenKey('software\microsoft\win dows\currentversion\run',true);
Reg.WriteString('Project1.exe',Appl ication.ExeName);
Reg.CloseKey;
Reg.Free;

[FaTaL]

Сообщение от Михаил Юрьевич

Вот этот работает

Reg := TRegistry.Create;
Reg.RootKey := hkey_current_user;
Reg.OpenKey('software\microsoft\win dows\currentversion\run',true);
Reg.WriteString('Project1.exe',Appl ication.ExeName);
Reg.CloseKey;
Reg.Free;

То что Вы здесь написали, это:
1. Прописывает в автозагрузку только для текущего пользователя
2. Прописывает в автозагрузку Вашу программу, а не чужую!
3. "Project1.exe" не очень красивое имя ключа.