ServiceManager/pl: what changed

Revision 1 to 2. Removed lines have a minus sign; added lines have a plus sign.

Old	New		Line
1	1		(Windows only)
2	2
3		-	~~<div style="font-size:1.88em;margin:0.75em 0;">~~
4		-
5	3		Menedżer usług
6		-
7		-	~~</div>~~
8	4
9	5		## ServiceManager
10	6
11	7		Dla Windows pakiet fcl-extra zawiera moduł o nazwie ServiceManager.
12	8
13	9		Poniższy przykład sprawdza, czy usługa SamSs (Security Accounts Manager; powinien być zawsze uruchomiony) jest uruchomiona. (Odpowiednik wiersza poleceń `sc query samss`).
14	10
15	11		### Nazwa usługi
16	12
17	13		Pamiętaj, że jeśli tworzysz własną usługę za pomocą pakietu Lazdaemon, ważna jest nazwa usługi, której będziesz używać. Podczas gdy polecenia NET START i NET STOP używają wyświetlanej nazwy usługi, polecenie SC i poniższy kod używają wewnętrznej nazwy usługi. Wyświetlana nazwa to nazwa nadana właściwości „DisplayName” elementu utworzonego w elementach DaemonDefs. Nazwa usługi jest właściwością "Name" tego samego elementu. Wyświetlana nazwa to ta, która jest aktualnie wyświetlana w kolumnie Nazwa przez aplet menedżera usług MS (services.msc) Użyjmy przykładu, aby to wyjaśnić. Załóżmy, że napisałeś aplikację serwisową o nazwie myService.exe, w której znajduje się jeden element w DaemonDefs. Element ma nazwę „MyServ”, a powiązana właściwość „DisplayName” ma wartość „Internal build service”. Używając wiersza poleceń jako administrator możesz:
18	14
19	15		### Zarządzanie usługami za pomocą konsoli
20	16
21	17		Będziesz potrzebować: Microsoft .NET Framework 4.5.2 (instalator sieciowy) dla Windows Vista SP2, Windows 7 SP1, Windows 8, Windows 8.1, Windows Server 2008 SP2 Windows Server 2008 R2 SP1, Windows Server 2012 i Windows Server 2012 R2
22	18
23	19		Aby zainstalować usługę na komputerze lokalnym, musisz uzyskać obsługę wiersza polecenia zestawu .NET SDK. 1. Wywołaj wiersz poleceń SDK, wykonaj Start \> Wszystkie programy \> Microsoft .NET Framework SDK v2.0 \> Wiersz poleceń SDK
24	20
25	21		Instalacja usługi:
26	22
27	23		```dos
28	24		\twoja\ścieżka\do\aplikacji\myService.exe --install
29	25		rem .... lub /install, -install też działa
30	26		```
31	27
32	28		Aktywacja usługi: W tych poleceniach nie zapomnij o podwójnych cudzysłowach, gdy nazwa składa się z wielu słów!
33	29
34	30		```dos
35	31		net start "Internal build service"
36	32		rem .... lub alternatywnie:
37	33		sc start "MyServ"
38	34		```
39	35
40	36		Aby zatrzymać usługę:
41	37
42	38		```dos
43	39		net stop '''"Internal build service"'''
44	40		rem ... lub alternatywnie
45	41		sc stop "'''MyServ'''"
46	42		```
47	43
48	44		## Przykład kodu
49	45
50	46		Biorąc pod uwagę powyższe, fragment kodu wywołujący poniższą funkcję wyglądałby w naszym przypadku tak:
51	47
52	48		``` pascal
53	49		if IsServiceRunning('MyServ') then
54	50		```
55	51
56	52		Przykładowy program::
57	53
58	54		``` pascal
59	55		program ServiceTest;
60	56		// Sprawdź, czy dany proces jest uruchomiony.
61	57		{$mode objfpc}{$H+}
62	58		uses
63	59		Classes,
64	60		SysUtils,
65	61		ServiceManager,
66	62		JwaWinSvc {dla deklaracji usług};
67	63
68	64		function IsServiceRunning(ServiceName: string): boolean;
69	65		{opis: Sprawdza, czy usługa Windows jest uruchomiona}
70	66		var
71	67		Services: TServiceManager;
72	68		ServiceStatus: TServiceStatus;
73	69		begin
74	70		//Sprawdza istniejące usługi
75	71		//odpowiednik polecenia sc query <servicename>
76	72		Services := TServiceManager.Create(nil);
77	73		try
78	74		try
79	75		Services.Acces := SC_MANAGER_CONNECT; //Uwaga literówka w nazwie usługi.
80	76		//Nie potrzebujemy więcej uprawnień dostępu niż to; domyślnie
81	77		//manager usług próbuje uzyskać pełny dostęp
82	78		Services.Connect; //Teraz połącz się z żądanym poziomem dostępu
83	79		Services.GetServiceStatus(ServiceName, ServiceStatus);
84	80		Result := (ServiceStatus.dwCurrentState = SERVICE_RUNNING);
85	81		Services.Disconnect;
86	82		except
87	83		on E: EServiceManager do
88	84		begin
89	85		// Brakująca usługa może zgłosić wyjątek brakującego uchwytu? Nie?
90	86		{LogOutput('Błąd podczas pobierania informacji dla usługi ' + ServiceName +
91	87		'. Szczegóły techniczne: ' + E.ClassName + '/' + E.Message); }
92	88		Result := False;
93	89		raise; //ponownie wyrzuć oryginalny wyjątek
94	90		end;
95	91		on E: Exception do
96	92		begin
97	93		{LogOutput('Błąd podczas pobierania informacji dla usługi ' + ServiceName +
98	94		'. Szczegóły techniczne: ' + E.ClassName + '/' + E.Message); }
99	95		Result := False;
100	96		raise; //ponownie wyrzuć oryginalny wyjątek
101	97		end;
102	98		end;
103	99		finally
104	100		Services.Free;
105	101		end;
106	102		end;
107	103
108	104		const
109	105		ServiceToTest = 'SamSs';
110	106
111	107		//Menedżer Zabezpieczeń Kont (SAM - Security Accounts Manager) powinien być uruchomiony, przynajmniej w systemie Vista
112	108		begin
113	109		WriteLn('Rozpoczęcie testu dla usługi ' + ServiceToTest + '.');
114	110		if IsServiceRunning(ServiceToTest) then
115	111		WriteLn('Usługa ' + ServiceToTest + ' jest uruchomiona')
116	112		else
117	113		WriteLn('Usługa ' + ServiceToTest + ' nie jest uruchomiona');
118	114		end.
119	115		```
120	116
121	117		## Zobacz także
122	118
123	119		- [[Daemons and Services/pl\|Demony i usługi]]
124	120		- [[TServiceManager/pl\|TServiceManager]]
125	121
126	122		---
127	123		From the Free Pascal wiki, page "ServiceManager/pl", as it stood on 2022-01-09 after a change by FTurtle, out of the wiki's dump of 2024-05-26. Copyright stays with the author who wrote it, according to the old wiki's [[Licensing]] page. If you have concerns about this material, [message the admin](/wiki-contact).

Back to history