| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Создание сервиса windows [D5, Win2k, WinXP]

bers ©   (2003-10-27 14:48:00) 

Уважаемые мастера!
Поскажите - как программно создать сервис windows и определить его свойства?
Заранее благодарен.

---

RusLand   (2003-10-28 14:03:00) [1]

В Делфях Выбираешь:
File/New/Other...
проект "Service Applications"
Для компонента Service1 (в Object Instector / Events)
Кликаешь 2 раза OnExecute
Созданное событие и есть так сказать тело твоего сервиса
пример:


procedure TService1.ServiceExecute(Sender: TService);
var s:TStringList;
begin
while not terminated do
begin
try
//Здесь чего-то делаешь например:
BEEP; //Бибикаешь

except
end;

sleep(5000);// Отдыхаем 5 секунд

ServiceThread.ProcessRequests(False);//Смотри хелп (потом как нибудь)
end;
end;


Осталось
Присвоить экранное имя (Service1 DisplayName):
"МОЙ ПЕРВЫЙ СЕРВИС УРА, СПАСИБО ВСЕМ"

Для запуска
C:\ПУТЬ\service1.exe /install
Заходишь в Сервиса и стартуешь.

Если надо перекомпилировать, то останавливаешь, компилишь, стартуешь.

Чтобы удалить
C:\ПУТЬ\service1.exe //uninstall

Все.

Кстати, не стоит делать вредоносные программы,
большее удовольствие приносит писание полезных программ.

Удачи!

---

alex_***   (2003-10-28 09:21:00) [2]

Удалено модератором
Примечание: Offtopic

---

+~SammIk~+   (2003-10-27 20:30:00) [3]

Удалено модератором

---

~~SammIk~~   (2003-10-27 20:23:00) [4]

Удалено модератором

---

_SammIk_   (2003-10-27 20:03:00) [5]

Удалено модератором
Примечание: Тебе мало ?

---

Игорь Шевченко   (2003-10-27 14:50:00) [6]

Рихтер, Кларк, разработка серверных приложений для Windows 2000
Или F1 Service Programs в win32.hlp

---

Наверх