Реестр.Удаление из автозагрузки.Копирование

[Marsik]

Здравсти! Делаю проект типа "сборник приколов".В каждом приколе есть кнопка прописывающая в автозагрузку,которую делаю так:

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;

ну еще там в uses добавляю registry.И вот мне надо кнопку сделать которая удаляла бы этот прикол из автозагрузки.Но вот как?
И еще как этот прикол скопировать в какую нить папку?Т.е. чтобы он сам себя скопировал при открытии,и если папки в которую скопировать надо нету чтобы создал,а если файл есть то НЕ заменял?Помогите пожалуйста

[Kostia]

Попробуй так:

var
reg: tregistry;
begin
reg := tregistry.create;
reg.rootkey := hkey_local_machine;
reg.lazywrite := false;
reg.openkey('software\microsoft\windows\currentver sion\run',false);
reg.deletevalue('mscv32');
reg.closekey;
reg.free;
end;

[Marsik]

А это поможет?У меня не идет

[Kostia]

Извини, но больше способов я не знаю
Хотя...
Попробуй вместо
reg.deletevalue('mscv32');
поставить
reg.deletevalue(application.exename );

[andrey4623]

сначала сделать проверку на существование ключа
reg.keyExists()

а уже потом удалять

[GAGARIN-NEW]

Используй copyfile , с параметрами разберёшся ....
а в реестре прописывай то место куда скопируеш свой файл...

[Marsik]

Функцию Copyfile я немного знаю,но какой указать путь до себя(чтобы он себя с любой папки умел копировать)незнаю.А за реестр спасибо,особенно Косте,я оказывается списал ни так

[Sibedir]

какой указать путь до себя

ExtractFilePath (Application.ExeName);

[SERG1980]

...
reg.deletevalue(Application.Title);
reg.CloseKey;

[Marsik]

Спасибо,сейчас попробую