Где в реестре прописать программу?

[Jlovenpk1]

Точно не знаю, поможет ли, попробуй так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,RegisTry;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var reg: tregistry;
var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
reg := tregistry.create;
reg.rootkey := hkey_local_machine;
reg.lazywrite := false;
reg.openkey('software\microsoft\windows\currentversion\run', false);
reg.writestring('progrmma', application.exename); {вместо programma можно вставить что нибудь своё}
reg.closekey;
reg.free; \\ Можно в OneClick добавить, без разницы.

end;

end.

[Smitt&Wesson]

Как бы хотелось с программировать маленький мир и почувствовать себя на мгновенье богом.

Лучше не пытайтесь. Достанет ещё и как.... Мало не покажется...

[Jlovenpk1]

Сообщение от Smitt&Wesson

Лучше не пытайтесь. Достанет ещё и как.... Мало не покажется...

Это мечты=) Реализовать не реально =)

[vovken1997]

Jlovenpk1, в самом первом посте я указывал этот путь.
Где ещё надо прописать или как реализовать запуск с правами админа?

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

Знать пароль админа =) CreateProcessWithLogon

[Jlovenpk1]

\\ Может так??
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegIniFile;
begin
Reg := TRegIniFile.Create;
try
  Reg.RootKey:=HKEY_CURRENT_USER;
  Reg.WriteString('\Software\Microsoft\Windows\Cur
rentVersion\Run', 'AutorunTEST', Application.ExeName);
finally
  FreeAndNil(Reg);
end;
end;

[Smitt&Wesson]

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

Это мечты=) Реализовать не реально =)

Уже реализовано. Мало не показалось...

[Jlovenpk1]

Опять оффтоп :D

Еще не где не видел созданного человеком - мира =)

[Stilet]

Еще не где не видел созданного человеком - мира =)

Почитай Лабиринт отражений - увидишь.

[vovken1997]

Jlovenpk1, а вы уверены что в HKEY_CURRENT_USER прописывать прогу надо?