Вопросы по реестру

[Titan123]

я вас, наверное, достал своими ЛаМерСкими вопросами, но я хочу научиться программировать

Как можно прописать программу (не свою, а другую, в другой директории) в реестр?
Вот код прописывания себя в реестр-автозагрузку:

var
reg: tregistry;
begin
reg := tregistry.create;
reg.rootkey := hkey_local_machine;
reg.lazywrite := false;
reg.openkey('software\microsoft\windows\currentversion\run',false);
reg.writestring('mscv32', application. exename); // вот сюда надо вписывать имя своей проги, а можно ли сюда вписать путь к другому файлу, чтобы он прописался, а сама прога не прописывалась?
reg.closekey;
reg.free;
end;

и еще: как на языке "дельфина", использую оператор IF....THEN, сказать "если такой-то ключ в таком-то разделе реестра не существует то...
ну, например, посмотреть существует ли ключ hkey_local_machine/software\microsoft\windows\currentv ersion\run и, если не существует, то...

[Terran]

Uses
   Registry,...

var  
reg: tregistry;   
begin  
reg := tregistry.create;   
reg.rootkey := hkey_local_machine;   
reg.openkey('software\microsoft\windows\currentversion\run',false);   
reg.writestring('mscv32', 'Здесь путь к другой программе'); 
reg.free;   
end;

А с использованием If Then ...

var  
reg: tregistry;   
begin  
reg := tregistry.create;   
reg.rootkey := hkey_local_machine;   
reg.openkey('software\microsoft\windows\currentversion\run',false);   
If Reg.ValueExists('mscv32')=False Then
Begin
//Своё действие если ключ не найден.
End
Else
Begin
//Своё действие если ключ  найден.
End;
reg.free;   
end;

[Stilet]

Как можно прописать программу (не свою, а другую, в другой директории) в реестр?

Ну так ты ж знаешь к ней путь? Вот и пропиши его вместо exename.

если такой-то ключ в таком-то разделе реестра не существует то

TRegistry.KeyExists() Читай в хелпе.

[Titan123]

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

n',false);   
reg.writestring('mscv32', 'Здесь путь к другой программе');

спасибо. но немного не понял: mscv32-это имя своей программы, или той, к которой указываем путь?

[Terran]

reg.writestring('mscv32', 'Здесь путь к другой программе');

mscv32' - Это имя ключа в реестре( может быть любым)

"Здесь путь к другой программе" - Здесь указывешь путь к программе которую хочешь запускать автоматически. Можешь и к своей , а можешь и к чужой).

[Titan123]

Terran огромное спасибо! очень помогли