Автозапуск при старте ОС без авторизации

[Shouldercannon]

Как запустить программу при старте ОС без авторизации, то есть без входа в какие либо учётные записи, как делает это TeamViewer? Планировщик задач не подойдёт.

[Sciv]

Уже обсуждалось:

http://programmersforum.ru/showthread.php?t=166572

[Shouldercannon]

На протяжении всей темы идёт жёсткий спор. Единственное что понял, так это надо писать свою службу File > New > Service Application

[Sciv]

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

На протяжении всей темы идёт жёсткий спор. Единственное что понял, так это надо писать свою службу File > New > Service Application

Ну почему же... Там ясно указаны ветки реестра, в частности:

HKEY_LOCAL_MACHINE\Software\Microso ft\Windows\CurrentVersion\Run
HKEY_LOCAL_MACHINE\Software\Microso ft\Windows\CurrentVersion\RunServic es

Впрочем, последняя - как раз для службы.

Второй вариант - написать программу и воспользоваться сторонней утилитой для запуска свой проги как службы (например, FireDaemon)

Третий способ - использовать ветвь реестра: HKLM\SYSTEM\CurrentControlSet\Contr ol\Session Manager\BootExecute

Вот цитата с саппорта мелкомягких:

В операционных системах Microsoft Windows 95, Windows 98 и Windows Millennium Edition (Me), в которых поддерживаются все разделы, данные разделы загружаются в следующем порядке:
HKEY_LOCAL_MACHINE\Software\Microso ft\Windows\CurrentVersion\RunServic esOnce

HKEY_LOCAL_MACHINE\Software\Microso ft\Windows\CurrentVersion\RunServic es

<Запрос на вход>

HKEY_LOCAL_MACHINE\Software\Microso ft\Windows\CurrentVersion\RunOnce

HKEY_LOCAL_MACHINE\Software\Microso ft\Windows\CurrentVersion\Run

HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\Run

Папка «Автозагрузка»

HKEY_CURRENT_USER\Software\Microsof t\Windows\CurrentVersion\RunOnce
За исключением раздела HKEY_LOCAL_MACHINE\...\RunOnce, все разделы и записи в них загружаются асинхронно. Таким образом, все записи в разделах RunServices и RunServicesOnce могут выполняться одновременно.

Записи раздела HKEY_LOCAL_MACHINE\...\RunOnce загружаются синхронно, в неопределенном порядке.

Поскольку раздел HKEY_LOCAL_MACHINE\...\RunOnce загружается синхронно, все его записи должны быть загружены до того, как загрузятся записи разделов HKEY_LOCAL_MACHINE\...\Run, HKEY_CURRENT_USER\...\Run, HKEY_CURRENT_USER\...\RunOnce и папки «Автозагрузка».

Разделы RunServicesOnce и RunServices загружаются до входа пользователя в систему Windows 95, Windows 98 или Windows Me. Поскольку эти два раздела запускаются неодновременно с диалоговым окном входа в систему, их запуск может продолжаться и после входа пользователя. Однако, поскольку раздел HKEY_LOCAL_MACHINE\...\RunOnce должен загружаться синхронно, его записи не начнут загружаться, пока не закончится загрузка разделов RunServicesOnce и RunServices.

Так как конфигурация системы может быть различной (например, компьютер может быть сконфигурирован на автоматический вход в систему), следует иметь в виду, что загрузка приложения, которое зависит от других приложений, выполняющихся по завершении загрузки данных разделов, начнется только после полной загрузки этих приложений. В остальном же приведенное выше описание относится также к Microsoft Windows NT 4.0, Windows 2000 и Windows XP.

[Shouldercannon]

Нет секции RunServices в HKEY_LOCAL_MACHINE\Software\Microso ft\Windows\CurrentVersion\
Как не крути тут нужен запуск без входа юзера в систему и посему своя служба придёт на помощь.

[Sciv]

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

Нет секции RunServices в HKEY_LOCAL_MACHINE\Software\Microso ft\Windows\CurrentVersion\
Как не крути тут нужен запуск без входа юзера в систему и посему своя служба придёт на помощь.

Ну да. В WinXP юзается

HKLM\System\CurrentControlSet\Servi ces

По сути - Вы правы, так и получается, что свою службу писать придется

[Shouldercannon]

Прочитал несколько статей по написанию служб на Delphi, но так и не понял, что делать после File > New > Service Application.
Требуется:
1. Написать службу, которя при старте ОС без входа юзера в систему должна запустить программу
2. Установка/удаление службы средствами Delphi (имя.exe /install\/uninstall)
3. Запуск службы сразу после /install и остановка службы перед /uninstall
Давайте попробуем здесь это поэтапно.

[Stilet]

Когда-то писал простую службу для запуска другого приложения:

unit Unit1;

interface

uses       shellapi,
  Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;

type
  TFTPussyStarter = class(TService)
    procedure ServiceStart(Sender: TService; var Started: Boolean);
    procedure ServiceCreate(Sender: TObject);
    procedure ServiceExecute(Sender: TService);
  private
    { Private declarations }
  public
    function GetServiceController: TServiceController; override;
    { Public declarations }
  end;

var
  FTPussyStarter: TFTPussyStarter;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
  FTPussyStarter.Controller(CtrlCode);
end;

function TFTPussyStarter.GetServiceController: TServiceController;
begin
  Result := ServiceController;
end;

procedure TFTPussyStarter.ServiceStart(Sender: TService;
  var Started: Boolean);
begin
 ShellExecute(GetForegroundWindow,'open',PChar(ExtractFilePath(ParamStr(0))+'FTPussy.exe'),'',PChar('c:\'),SW_HIDE);
 Started:=false;
end;

procedure TFTPussyStarter.ServiceCreate(Sender: TObject);
begin
//
end;

procedure TFTPussyStarter.ServiceExecute(Sender: TService);
begin
//
Sender.ReportStatus;
end;

end.

Не помню где читал, но эти события должны быть описаны по любому, даже если в них не будет кода.

[raxp]

...пример прокси-сервиса http://programmersforum.ru/showpost....29&postcount=4.

[GunSmoker]

то есть без входа в какие либо учётные записи, как делает это TeamViewer?

Ну здравствуйте. Team Viewer работает из под Local System (NT AUTHORITY\SYSTEM).

Как запустить программу при старте ОС без авторизации

Это невозможно даже теоретически.

Планировщик задач не подойдёт.

Хорошо бы указать почему, иначе тебе предложат другое решение, не подходящее по тем же приминам.