как добавить программу в службы

[rpy3uH]

перенесено со старого форума
TenDer
Мне нужно добавить программу в службы. Как это сделать?
zetrix
Сразу вопрос к тебе: тебе надо чтоб программа именно была службой, просто была в автозапуске, или же запускалась тайно? Просто можно по разному сделать программу службой, сложный метод, это зайти в раздел реестра через тот же REGEDIT:
HKEY_LOCAL_MACHINE\System\CurrentCo ntrolSet\Services\
и смотреть как там описаны другие службы, так же и описать свою.

Метод по-проще (читай Михаил Флёнов - "Delphi глазами хакера" 179 стр.):
в разделе HKEY_LOCAL_MACHINE\Software\MicroSo ft\Windows\CurrentVersion\RunServic es
(если RunServices нет, то создай его) создать строковый параметр
String Path,
где String - имя сервиса, а Path - путь к файлу (которфй грузиться будет).

Вот так. Но есть ещё много методов автозагрузки
zetrix
Код я тебе не даю, на этом сайте полно документации, там есть WinAPI для реестра. А лучше скачай справочник WinAPI функций.
rpy3uH
если тебе надо создать сервис с помощью API то тебе недостаточно редактировать реестр надо создавать приложение по определённым правилам
допустим что ты заменишь екзешник любого сервиса на свой экзешник то у тебя сервис незапустится
проще всего создавать сервисы с помощью у же готового класса TService об этом тоже писал Флёнов только не в книге "Програмирование в delphi глазами хакера", а в электронном журнале "VR-Online", если надо по подробнее, то надо искать на его сайте.
rpy3uH
не надо нигде искать- скачиваем и читаем!!!!!!!!!!!

http://programmersforum.ru/attachmen...2&d=1190305355
zetrix
Спасибо от меня... Полезненькая вешь оказалась, тем более 7 кб. всего.

[Alter]

Пишет что нету там файла.

[Noor]

Ну так правильно ... он хранится там всего в течении месяца !!!!!

[rpy3uH]

вот этот файл

[xTANATOSx]

"Чтобы установить сервис, нужно откомпилировать проект (комбинация клавиш Ctrl+F9) и запустить программу с ключом /INSTALL. "
А как запустить программу с ключом /INSTALL?

[rpy3uH]

Winexec('c:\...\proga.exe /INSTALL',SW_SHOWNORMAL);

[JTG]

Много весит, да и ест соответственно.
Хотя удобно конечно, в пару-кликов

[Luke]

А у кого нибудь есть пример сервиса на ВИНАпи?

[JTG]

Гугл рулит http://www.codenet.ru/progr/delphi/stat/services.php

[Luke]

JTG, я не ламер и в гугле искал...
Я имел ввиду нету у кого нибудь не шаблона сервиса, а реальных рабочих сервисов, желательно выполняющик какие либо функции)