сервис

← →
anarhi (2005-06-07 11:40) [0]

Доброго времени суток всем!
Хочу сделать прогу что-бы она работала сервисом, делаю
File | New... | New | Service Application
как сделать чтобы прога через определенный интервал времени
выполняло какое-нибудь действие, например писала некоторую информацию в файл.

← →
Digitman © (2005-06-07 11:46) [1]

а в чем собственно проблема ?

← →
anarhi (2005-06-07 11:51) [2]

в Service1Execute выполняется только ShowMessage и то 1 раз.

while not Terminated do begin
sleep(1000);
ShowMessage("gggg");
//делаем что-нибуддь
ServiceThread.ProcessRequests(False);
end;

← →
Digitman © (2005-06-07 11:54) [3]

тела обработчиков событий OnStart/Stop/Execute исполняются в доп.трэде сервиса, поэтому ShowMessage() там недопустим

вместо ShowMessage() используй MessageBox()

← →
anarhi (2005-06-07 11:57) [4]

и каким образом в доп.трэде писать некоторую информацию в файл.

обычным ..

AssignFile(), TFileStream, Create/WriteFile и т.д. и т.п.

сервис Найти похожие ветки