Fórum Application Service #332776

Pessoal,

Estou iniciando nesta parte de Application Service, e não estou conseguindo entender porque não é retornada nenhuma mensagem no seguinte código. A idéia é simples, basta verificar se uma janela esta aberta e mostrar a mensagem:

.
.
.
procedure TService1.ServiceExecute(Sender: TService);
begin
Timer1.Enabled := True;
While NOT Terminated do
Begin
ServiceThread.ProcessRequests( False );
Sleep(1);
End;
Timer1.Enabled := False;
end;

procedure TService1.Timer1Timer(Sender: TObject);
var
H : HWnd;
begin
H := FindWindow(Nil,´Sem título - Bloco de notas´);
if H = 0 then
Showmessage(´nao´)
else Showmessage(´sim´);
end;
.
.
.