Как зделать так чтобы программа при 1 запуске копировалась в автозапуск?

[LuMax]

Как зделать так чтобы программа при 1 запуске копировалась в автозапуск?

[LuMax]

Мне надо чтобы когда я запустил прогу то она автоматически появилась в папке автозагрузка меню пуск.Пишу на Делфи.Имменно сама прога а не ярлык

[mihali4]

Берем мою оболочку для всяко-разных вопросов по Дельфи
http://www.programmersclub.ru/files/dfaq.rar
набираем в "Поиске" хотя бы "автоз", и... получаем исчерпывающий ответ...
Годится?

[Abbatik]

uses Registry;

procedure TForm1.Button1Click(Sender: TObject);
var
  reg: TRegistry;
begin
  Reg := nil;
  try
    reg := TRegistry.Create;
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.LazyWrite := false;
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',
      false);
    reg.WriteString('My App', Application.ExeName);
    reg.CloseKey;
    reg.free;
  except
    if Assigned(Reg) then Reg.Free;

  end;
end;

Удобнее использовать реестр. После нажатия на кнопку данное приложение будет запускаться при каждом старте Винды!

[LuMax]

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

[Abbatik]

uses Registry;

procedure TForm1.FormCreate(Sender: TObject);
var
  reg: TRegistry;
begin
....
  Reg := nil;
  try
    reg := TRegistry.Create;
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.LazyWrite := false;
    reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',
      false);
    reg.WriteString('My App', Application.ExeName);
    reg.CloseKey;
    reg.free;
  except
    if Assigned(Reg) then Reg.Free;

  end;
......
end;

Так пойдет?

[LuMax]

FormCreate это чтобы при запуске формы запускался процес да?
Как спрятать главную форму (Form1) чтобы её видно не было сразу при запуске проги?
Такое выражение пойдет"Form.visible:=false;" ? Если да то в каком событии(Events)?

[Abbatik]

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

FormCreate это чтобы при запуске формы запускался процес да?
Как спрятать главную форму (Form1) чтобы её видно не было сразу при запуске проги?
Такое выражение пойдет"Form.visible:=false;" ? Если да то в каком событии(Events)?

oncreate!

Данное действие убирает прогу из Ctrl+Alt+Del & Alt+Tab.
Нет ее и в Taskbar!

...
function RegisterServiceProcess(ProcessID, Typ: Integer): Integer;
  external 'KERNEL32.DLL';

procedure TForm1.FormCreate(Sender: TObject);
begin
 ....
 RegisterServiceProcess(GetCurrentProcessId, 1);
  ShowWindow(Application.Handle, SW_HIDE);
  SetWindowLong(Application.Handle, GWL_EXSTYLE,
    GetWindowLong(Application.Handle, GWL_EXSTYLE) or
    WS_EX_TOOLWINDOW);
....
end;
...