Скажите функцию которая будет запускать приложение при каждой загрузке винды

[pentiumForever]

Скажите функцию которая будет запускать приложение при каждой загрузке винды .Срочно нада.Плиззз

[pentiumForever]

Мож кто-нить знает?а?

[Азазель]

Можно через регистр: Итак, в ветвях реестра HKEY_CURRENT_USER и HKEY_LOCAL_MACHINE находятся разделы Software\Microsoft\Windows\CurrentV ersion\Run и Software\Microsoft\Windows\CurrentV ersion\RunOnce ; В Run сохраняются пути приложений, которые запускаются при КАЖДОМ старте ВинДовз, а в RunOnce - единожды.

[Азазель]

От выбора ветвей реестра (HKEY_CURRENT_USER и HKEY_LOCAL_MACHINE) зависит , в сеансе всех ли пользователей будут запускаться приложение.

Пример: (Надо: 3 RadioButton + Button);

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Registry;

type
  TForm1 = class(TForm)
    RadioGroup1: TRadioGroup;
    optRunNone: TRadioButton;
    optRunOnce: TRadioButton;
    optAutoRun: TRadioButton;
    cmbApply: TButton;
    procedure FormCreate(Sender: TObject);
    procedure cmbApplyClick(Sender: TObject);
  private
    { Private declarations }
    procedure GetRunMode();
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(sender: TObject);
begin
  GetRunMode();
end;

procedure TForm1.GetRunMode();
var
  reg: TRegistry;
begin
  reg := TRegistry.Create();
  reg.RootKey := HKEY_LOCAL_MACHINE;
  //Определение, как запускается программа (по наличию значений в
  //соответствующих разделах)
  if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False)
  then
  begin
    if reg.ValueExists(Application.Title) then
    begin
      //Программа есть в разделе Run - запускается при каждой загрузке
      //Windows
      optAutoRun.Checked := True;
      reg.CloseKey();
      Exit;
    end;
    reg.CloseKey();
  end;

  if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', False)
  then
  begin
    if reg.ValueExists(Application.Title) then
    begin
      //Программа есть в разделе RunOnce - запускается один раз при старте
      //Windows
      optRunOnce.Checked := True;
      reg.CloseKey();
      Exit;
    end;
    reg.CloseKey();
  end;

  //Автозапуск программы (рассматриваемым способом) не включен
  optRunNone.Checked := True;

  reg.Free();
end;

//Применение режима запуска программы
procedure TForm1.cmbApplyClick(Sender: TObject);
var
  reg: TRegistry;
begin
  reg := TRegistry.Create();
  reg.RootKey := HKEY_LOCAL_MACHINE;
  //Отмена прошлого режима
  //..удаление параметра из раздела Run
  if not optAutoRun.Checked then
    if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', False)
    then
    begin
      reg.DeleteValue( Application.Title );
      reg.CloseKey();
    end;
  //..удаление параметра из раздела RunOnce
  if not optRunOnce.Checked then
    if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', False)
    then
    begin
      reg.DeleteValue( Application.Title );
      reg.CloseKey();
    end;

  //Установка нового режима (создание параметра в соответствующем разделе)
  if optAutoRun.Checked then
    //..добавление параметра в раздел Run
    if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True)
    then
    begin
      reg.WriteString( Application.Title, Application.ExeName);
      reg.CloseKey();
    end;
  if optRunOnce.Checked then
    //..добавление параметра в раздел RunOnce
    if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', True)
    then
    begin
      reg.WriteString( Application.Title, Application.ExeName);
      reg.CloseKey();
    end;

  GetRunMode();
  reg.Free();
end;

end.

[pentiumForever]

For Азазель: Спасибо конечно,но всё же я видел совсем мелкую функцию,и она запускала приложение при каждом запуске винды,я просто забыл её,точнее я её и не запоминал)))

[Азазель]

Можно и покороче:

  
var
  reg: TRegistry;
begin
  reg := TRegistry.Create();
  reg.RootKey := HKEY_LOCAL_MACHINE;
 if reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run', True)
    then
    begin
      reg.WriteString( Application.Title, Application.ExeName);
      reg.CloseKey();
    end;
   Reg.Free;
  end;

Но функцию не знаю

[UnD)eaD)Snake]

Можна просто скопировать прогу в папку автозагрузки
(%SystemRoot%\Documents and Settings\All Users\Главное меню\Программы\Автозагрузка)

[Ring0Sn]

For Азазель: Спасибо конечно,но всё же я видел совсем мелкую функцию,и она запускала приложение при каждом запуске винды,я просто забыл её,точнее я её и не запоминал)))

жжешь, спец api функции нету, юзай реестр как те писал Азазель, или делай тоже самое тока на аpi!

[pentiumForever]

Думаю это оптимальное решение для мелких приложений!

[Ring0Sn]

Говорюже делай на аpi тогда если нужны маленькие приложения!
лови юнит и радуйся там все что тебе надо: