Wie kann ich Nachrichtenschleife für erhöhte Ereignisse in Betrieb haben?

Question

Ich schreibe Service, den ich Drittes COM-Objekt in meiner application.every Sache laden muß funktioniert gut, wenn ich Windows-Anwendung verwenden, aber in meinem Dienst das Service-Objekt nie ein Ereignis ausgelöst wird, ich bin mit dem gleicher Code in beiden. Dank

Answer 1

Dienste neigen nicht dazu, ein Fenster Nachricht Pumpe zum Empfangen solcher Nachrichten zu laufen. Ich muss Nachrichtenschleife in meinem Dienst

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