Скачать: CL | DM;

простенький сервис под W2k, XP   Найти похожие ветки 

← →
Dmitry Raduzhan   (2002-08-13 11:27) [0]

Всем доброе время суток.

Уважаемые программеры, не подскажтите-ли как сделать простенький системный сервис на делфи. Чтобы он занимал как можно меньше ресурсов машины. Требуется, чтобы он работал под W2k & XP.
Лучше всего с примером. Но без визуальных компонентов. Никаких окошек и всего прочего.

---

← →
Ученик ©   (2002-08-13 11:46) [1]

http://www.delphi.xonix.ru/article/?id=makeservice

---

← →
Dmitry Raduzhan   (2002-08-13 13:51) [2]

А как собственно определяется в системе, как часто выполнять процедуру сервиса.
Задача собственно какая : требуется с определенной периодичностью снимать некоторые показатели системы, предположительно - каждую секунду.

---

← →
Ученик ©   (2002-08-13 14:23) [3]

Используйте установку таймера, сервис это обычное приложение Windows за исключением маленьких особенностей

---

← →
Dmitry Raduzhan   (2002-08-13 14:38) [4]

Поправьте, если я неправильно понял :
В программе требуется создать объект типа таймер, определить для него интервал выдачи событий и обрабатывать их.
Я все правильно понял.

var t:TTimer;
.
begin
.
.
t.create;
t.enabled:=true;
.
.


---

← →
Ученик ©   (2002-08-13 15:04) [5]

type
TMyTimer = class(TTimer)
public
constructor Create(AOwner : TComponent); override;
procedure DoTimer(Sender : TObject);
end;

constructor TMyTimer.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
OnTimer := DoTimer
end;

procedure TMyTimer.DoTimer(Sender : TObject);
begin
ShowMessage("OK")
end;

t:TMyTimer;

---

← →
Dmitry Raduzhan   (2002-08-13 15:26) [6]

Спасибо.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c