Fórum Criando um serviço compatível com Windows 7 #452700

Estou criando um serviço simples, usando o XE3 e o Windows 7. Ele verifica se a calculadora está aberta, se não estiver ele abre a calculadora. O serviço instala, roda, porém o windows alerta que não é compatível,e a calculadora fica oculta. Segue o código.


procedure ServiceController(CtrlCode: DWord); stdcall;
begin
Service1.Controller(CtrlCode);
end;

function TService1.GetServiceController: TServiceController;
begin
Result := ServiceController;
end;

procedure TService1.ServiceExecute(Sender: TService);
begin
while not Terminated do
ServiceThread.ProcessRequests(True);// wait for termination
end;

procedure TService1.Timer1Timer(Sender: TObject);
begin
if FindWindow(nil, 'Calculadora') = 0 then
WinExec('C:\Users\DI\Desktop\calc.exe', SW_SHOWNORMAL);
end;