TService. Найти окно используя службу.

[Denutrror]

Hello.

Сегодня наткнулся на то, что называется Службами Windows (я надеюсь оно так называется). Решил написать простенький сервис для подсчёта времени активности окна, и сразу же наткнулся на проблему:
Сервис не может найти окно, хотя простое приложение используя ту же функцию запросто его находит.

Вот код, так яснее:

type
  TMyService21 = class(TService)
    Timer1: TTimer;

procedure TMyService21.ServiceExecute(Sender: TService);
begin
While not terminated do  {как я понял: чтобы приложение не было закрыто, как зависшее}
begin
sleep(2000);
ServiceThread.ProcessRequests(false);
end;
end;

procedure TMyService21.Timer1Timer(Sender: TObject);
begin
Mailw:= findwindow('ContactsHostWindow',nil);   {Вот тут и кроется проблема, программа не находит окно (хотя оно точно есть)
if mailw <> 0 then
begin
 beep;
Timer1.enabled:= false;
 end
 else
 begin
 beep;
 sleep(200);
 beep;
  end;
end;

Подскажите в чём проблема.
И ещё хотелось бы узнать что обозначает этот кусок: ServiceThread.ProcessRequests(false ).

Заранее благодарен.

[Stilet]

Подскажите в чём проблема.

ИМХО в том что таймер срабатывает как сообщение для окна, коего служба не имеет.
Выведи твой код по обработке окна ContactsHostWindow в цикл ServiceExecute.

[Denutrror]

Сообщение от Stilet

ИМХО в том что таймер срабатывает как сообщение для окна, коего служба не имеет.
Выведи твой код по обработке окна ContactsHostWindow в цикл ServiceExecute.

Не получилось

Пробовал так:

procedure TMyService21.ServiceExecute(Sender: TService);
var
toga: boolean;
begin
While not terminated do
begin
Mailw:= findwindow('ContactsHostWindow',nil);
if mailw <> 0 then
begin
 beep;
 toga:= true;
 end
 else
 begin
 beep;
 sleep(200);
 beep;
  end;
sleep(2000);
ServiceThread.ProcessRequests(false);
end;
end;

и так:

procedure TMyService21.ServiceExecute(Sender: TService);
var
toga: boolean;
begin
repeat
Mailw:= findwindow('ContactsHostWindow',nil);
if mailw <> 0 then
begin
 beep;
 toga:= true;
 end
 else
 begin
 beep;
 sleep(200);
 beep;
  end;
  until toga = false;
While not terminated do
begin
sleep(2000);
ServiceThread.ProcessRequests(false);
end;
end;

Может я что-то не то делаю, но ничего не выходит. Нет даже "отрицательного" результата!

[xoodoo]

окна, коего служба не имеет

Имеет. Не сама служба, разумеется, а основной поток VCL-сервис-приложения - в нем в ходе инициализации объекта Forms.Application создается окно далее в методе TServiceApplication.Run организуется цикл выборки/диспетчеризации оконных сообщений.
Так что таймер, шмякнутый прямо на TService, будет нормально тикать.

ничего не выходит

Значит на текущем десктопе нет верхнеуровневого окна с именем ContactsHostWindow.

что обозначает этот кусок: ServiceThread.ProcessRequests(false )

Вызов метода-диспетчера управляющих и пользовательских сообщений потоку текущей службы.

[GunSmoker]

Службы работают изолировано от оконных приложений интерактивных ользователей (в XP и младше - отдельный рабочий стол, в Vista и выше - целая изолированная сессия). Просто так работать с окнами не получится. И не нужно.