Comment est-ce que je peux avoir la boucle de message en service pour l'événement augmenté?

Question

J'écris service que je dois charger des tiers objet com dans mon truc application.every fonctionne bien quand je suis en utilisant l'application Windows, mais à l'intérieur de mes services l'objet de service ne déclenche un événement, je me sers du même code dans les deux. Merci

Answer 1

Les services n'ont pas tendance à exécuter une pompe de message de fenêtre pour recevoir de tels messages. Je dois avoir un message en boucle dans mon service

while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do begin 
    Try 
    TranslateMessage(Msg); 
    DispatchMessage(Msg); 
    Except 
    Application.HandleException(Self); 
    End; 
end;