Reacția la erori la pornire:
În momentul începerii serviciului ajungem la contextul ecranului și resetăm contorul:
Să continuăm pentru a descrie evenimentul de serviciu OnExecute (). Cu privire la serviciul, informăm utilizatorul cu un șir de text, în care afișăm valoarea curentă a contorului. Serviciul se va opri atunci când contorul depășește valoarea de 100 sau prin comandă de la un program de control extern. Pentru a face acest lucru, în cadrul buclei, folosind ProcessRequests (), efectuăm în mod regulat un sondaj în serviciu al administratorului de servicii pentru a primi comenzi de la aplicații externe.
Vă atragem atenția că ieșirea unui șir de text pe ecran este posibilă numai în cazul în care serviciul funcționează într-un mod interactiv. Evenimentul stop este folosit pentru a elibera descriptorul de context al dispozitivului:
Înregistrarea serviciilor utilizând instrumente de aplicație
Pentru a înregistra un serviciu în sistemul de operare, aplicația care deține aplicația trebuie să fie lansată din linia de comandă cu comutatorul / INSTALL. De exemplu:
Pentru a anula înregistrarea, utilizați comutatorul / UNINSTALL. Procesul de instalare a serviciului este însoțit de ieșirea unui mesaj de notificare. Pentru a refuza afișarea ferestrei de notificare, utilizați comutatorul / SILENT. Deschideți consola de gestionare a serviciului a calculatorului, găsiți serviciul nostru "Demonstrarea serviciului" și executați-l pentru a fi executat ...
Sursa: D.Osipov - Delphi. Programare profesională.
Codul sursă al exemplului este aici. Finalizat pe Delphi XE.