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

[}{oт@бь)ч]

Здраствуйте!
Подскажите пожалуйста как зделать автозагрузку програмы!
Тоесть нажимаю на button1 и програма прописаваятся в автозагрузку!
Нажимаю button2 програма удаляется из автозагрузки)
Если это возможно как такое зделать?

[spamer]

Так а в чем проблема? Просто добавляй свою прогу в реестр (вот по этому адресу хранится автозагрузка программ HKEY_LOCAL_MACHINE\SOFTWARE\Microso ft\Windows\
CurrentVersion\Run). Работа с реестром на форуме уже рассматривалась неоднократно.

[goblinyara]

Ссылко 1
Ссылко 2
А впредь - Хоттабыч, не забывайте про поиск, а то уже реально большая часть новых вопросов - от вас... А ведь обе темы, ссылки на которые я дал, называются точно так же, как и эта...

[}{oт@бь)ч]

Хорошо извените в селудюший раз учту!
Но только как удалить по нажатиюиз автозагрузки ненаписано можете помочь !
Как по нажатию на кнопку удалить удалить программу из авто загрузки?

[Dark_Cat]

Ищите ярлык программы в папке автозагрузки, либо же имя exe в реестре. Как проверить существование файла, думаю вы и так знаете, а функции работы с реестром сободно можно найти в сети.

[goblinyara]

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

procedure UnSetAutorun(aProgTitle: string);
var
hKey: string;
hReg: TRegIniFile;
begin

hKey := '';
hReg := TRegIniFile.Create( '' );
hReg.RootKey := HKEY_LOCAL_MACHINE;
hreg.DeleteKey('Software\Microsoft\Windows\CurrentVersion\Run'+ hKey + #0,
aProgTitle);
hReg.destroy;
end;

P.S. Хоттабыч, скачайте Delphi World 6 - ссылка у меня в подписи, это избавит вас от многих, извините, глупых вопросов...
P.P.S. Модераторы, не сочтите за рекламу, просто реально совет новичку Самому сборник очень помог

[}{oт@бь)ч]

А вот если операционая система будет в диске V например то авто загрузки небудет же

RootKey := HKEY_LOCAL_MACHINE;  
  OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
    WriteString('Proga', 'D:\Proga.exe');    
CloseKey;  

  Free;

Судя по коду програму запуститься в диске D
А если такого диска нету и програма там нележит!

[Terran]

Как по нажатию на кнопку удалить удалить программу из авто загрузки?

Вместо WriteString используйте DeleteValue.

А если такого диска нету и програма там нележит!

Напишите Application.ExeName и не нужно будет беспокоиться про путь.

[goblinyara]

RootKey := HKEY_LOCAL_MACHINE;  
  OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
    WriteString('Proga', 'D:\Proga.exe'); //  хмм...  а поменять вот эту строчку немножко никак невозможно?   
CloseKey;

Надеюсь, вы хоть знаете, как узнавать полное имя файла программы, вместе с абсолютным путём?

[}{oт@бь)ч]

procedure TForm1.Button1Click(Sender: TObject);
var
h: TRegistry;
begin
 h := TRegistry.Create;
 with h do
 begin
RootKey := HKEY_LOCAL_MACHINE;
  OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
    DeleteValue('Proga', 'D:\Proga.exe');
CloseKey;
  Free;

end
end;

end.

Ошибку выдает когда удалить хочу!

Напишите Application.ExeName и не нужно будет беспокоиться про путь.

А можете по подробнее обьяснить что и куда писать)