Вопрос по автозапуску программы в реестре

[GunSmoker]

Написал свой вариант: http://dl.dropbox.com/u/201788/Projects/AutorunReg.pas

Как использовать:
1а. Положить модуль в папку с программой.
либо
1б. Положить модуль в любое место и в проекте использовать Project/Add to project.
2. Подключить модуль в uses:

unit Unit1;

interface

...

implementation

uses
  AutorunReg;

{$R *.dfm}

...

end.

Примеры использования:
1. Добавить программу в автозагрузку через реестр:

procedure TForm1.Button1Click(Sender: TObject);
begin
  AutorunAddReg;
end;

2. Добавить программу в автозагрузку через папку "Автозагрузка":

procedure TForm1.Button3Click(Sender: TObject);
begin
  AutorunAddLnk;
end;

3. Удалить программу из автозагрузки через реестр:

procedure TForm1.Button2Click(Sender: TObject);
begin
  AutorunRemoveReg;
end;

4. Удалить программу из автозагрузки через папку "Автозагрузка":

procedure TForm1.Button4Click(Sender: TObject);
begin
  AutorunRemoveLnk;
end;

5. Проверить, находимся ли мы в автозагрузке в реестре:

procedure TForm1.FormCreate(Sender: TObject);
var
  Registered: Boolean;
begin
  Registered := AutorunCheckReg;
  Caption := BoolToStr(Registered, True);
end;

6. Проверить, находимся ли мы в автозагрузке в папке "Автозагрузка":

procedure TForm1.FormCreate(Sender: TObject);
var
  Registered: Boolean;
begin
  Registered := AutorunCheckLnk;
  Caption := BoolToStr(Registered, True);
end;

7. Добавить себя в автозагрузку для всех пользователей:

procedure TForm1.Button1Click(Sender: TObject);
begin
  AutorunAddReg(True);
end;

(для папки - аналогично, заменить "Reg" на "Lnk").

8. Проверить, находимся ли мы в автозагрузке для всех пользователей:

procedure TForm1.FormCreate(Sender: TObject);
var
  Registered: Boolean;
begin
  Registered := AutorunCheckReg(True);
  Caption := BoolToStr(Registered, True);
end;

(для папки - аналогично, заменить "Reg" на "Lnk").

9. Добавить себя в автозагрузку с параметрами:

procedure TForm1.Button1Click(Sender: TObject);
begin
  AutorunAddReg(False, '/param1 /param2=test "C:\Program Files\file.txt"');
end;

(для папки - аналогично, заменить "Reg" на "Lnk"; также можно использовать True для глобальной регистрации).

[UFO 007]

Доброго всем времени суток!

Уважаемый GunSmoker, не могли бы Вы подсказать - как бороться с Семёркой? Дело в том, что из-под ХР как часы работает и следующее:

Reg:= tregistry.Create;
  Reg.RootKey := hkey_current_user;
 If Not Reg.ValueExists('Reanimator UFO_007') Then
{записываем значение -  Автозагрузка R2k11_ufo.exe на случай РеБута}
  Reg.WriteString('Reanimator UFO_007',  Application.ExeName);

... А вот под 7-кой - ни при помощи .lnk в СтартАпе, ни при помощи Вашего Юнита (который, в принципе, как "говорит" РегЭдит - делает то же самое), ни мытьём, ни катаньем - моя прога автоНЕзапускается...

Заранее благодарен

[GunSmoker]

У проги манифест есть?

[UFO 007]

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

У проги манифест есть?

A манифестA - Хто такаЯ - из палитры компонентов "XP Manifest"??? Иначе - Сорри: Ай Донт Эндэстэнд это слово... Або це - Права Адин...а???

З.Ы. Я - не Хакер_Ламер_Геймер.... я всего лишь начинающий полу-Юзер (ZX-Spectrum - Foreve!!!)

З.Ы. З.Ы. А воще - пАлюбому - СПАСИБО, (даже за то, что откликнулись), а ежели вразумите - Хто такАЯ манифестА - Дык дважды "СпАсИБо!!!" и Ышо "!!!"

сорри фор май бэд раша (Ich habe die DeutscheShprache gelernen - enshuldigen Sie bitte)

З.Ы. З.Ы. З.Ы. А мабудь трэба Delphi_7 апгрейднуть? - на 2006 или 2009? ...и всё пойдёт как по "маслу" (в чём я {на счёт "7-ки"} уж дуже сумлеваюсь)???

Thenk's For You