простенький сервис под 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]

Спасибо.

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