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

[InseR]

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

[Net]

С помощью TRegistry добавить в hkey_local_machine/hkey_current_user software\microsoft\windows\currentv ersion\[run/runonce] свой строковый параметр со значением - полный путь к программе.
Run - постоянная автозагрузка
RunOnce - однократная.

[InseR]

А можно ли вписать программу в реестр если она небыла запущенна?Например после перезагрузки компа?
Как определить путь до exe файла на удаленном компе чтобы потом этот путь вписать в реестр?

[InseR]

Как объявить переменную типа TRegistry?Просто в разделе var написать reg:TRegistry;,а после в разделе begin и end; написать reg:=и путь до автозагрузки?

[InseR]

ПЛИЗ ПОКАЖИТЕ ИСХОДНЫЙ КОД ОБРАБОТЧИКА СОБЫТИЯ OnCreate для добавления программы в автозапуск,например имя программы Project1.exe.

[Alex21]

1.А можно ли вписать программу в реестр если она небыла запущенна?Например после перезагрузки компа?
2.Как определить путь до exe файла на удаленном компе чтобы потом этот путь вписать в реестр?

1. Либо другой программой, либо ручками.
2. Приложение Клиент-Сервер. (должно стоять на обоих компьютерах), или права Администратора.

ПЛИЗ ПОКАЖИТЕ ИСХОДНЫЙ КОД ОБРАБОТЧИКА СОБЫТИЯ OnCreate для добавления программы в автозапуск,например имя программы Project1.exe

uses
 registry.......
var
  Form1: TForm1;
  reg:TRegistry;
implementation
{$R *.dfm}
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;
end;

[InseR]

Alex21,спасибо большое за помощь...Плиз напомни как откомпилировать программу не запуская ее?И еще вопрос появился,какой код нужно написать в OnCreate для того,чтобы программа делала свою копию в заданной директории?

[Viteef]

"как откомпилировать программу не запуская ее?"

Ctrl +F9

[Pitbull]

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

Alex21,спасибо большое за помощь...Плиз напомни как откомпилировать программу не запуская ее?И еще вопрос появился,какой код нужно написать в OnCreate для того,чтобы программа делала свою копию в заданной директории?

CopyFile(PChar(путь1), PChar(путь2), False); // так копируем фаил из.. - в..


path:=GetCurrentDir ... ; // так узнается текущая дериктория....
Например, можно прописать путь в туже папку:
путь1:=getCurentDir + '\имя.ini';

[Ярослав]

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

uses
 registry.......
var
  Form1: TForm1;
  reg:TRegistry;
implementation
{$R *.dfm}
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;
end;

Код работает при компиляции проги (F9)
сохраняю в (.ЕХЕ) формате прога работает не правильно (при загрузке запускает папку D:\программы).
1) У кого такая ошибка напишите.
2) Чё делать?
3) Как удалить из авто запуска?
Вот исходник и прога.