| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
простенький сервис под W2k, XP [D3, D5, Win2k, WinXP]
Dmitry Raduzhan © (2002-08-13 11:27:00)Всем доброе время суток.
Уважаемые программеры, не подскажтите-ли как сделать простенький системный сервис на делфи. Чтобы он занимал как можно меньше ресурсов машины. Требуется, чтобы он работал под W2k & XP.
Лучше всего с примером. Но без визуальных компонентов. Никаких окошек и всего прочего.
Dmitry Raduzhan (2002-08-13 15:26:00) [1]Спасибо.
Ученик (2002-08-13 15:04:00) [2]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 14:38:00) [3]Поправьте, если я неправильно понял :
В программе требуется создать объект типа таймер, определить для него интервал выдачи событий и обрабатывать их.
Я все правильно понял.
var t:TTimer;
.
begin
.
.
t.create;
t.enabled:=true;
.
.
Ученик (2002-08-13 14:23:00) [4]Используйте установку таймера, сервис это обычное приложение Windows за исключением маленьких особенностей
Dmitry Raduzhan (2002-08-13 13:51:00) [5]А как собственно определяется в системе, как часто выполнять процедуру сервиса.
Задача собственно какая : требуется с определенной периодичностью снимать некоторые показатели системы, предположительно - каждую секунду.
Ученик (2002-08-13 11:46:00) [6]http://www.delphi.xonix.ru/article/?id=makeservice
| |
