Noi scriem un serviciu pe Delphi
Ar fi frumos să înțelegem ce serviciu este în general. Acest termen a apărut în sistemele NT și a fost folosit pe scară largă odată cu lansarea sistemelor de operare Win2k și XP. Fără îndoială, avantajele serviciilor față de programele convenționale sunt palpabile. Aceasta este descărcarea înainte de a descărca programe normale și privilegii mari și un control mai mare asupra sistemului. Dar principalul lucru - ei nu pot descărca prin intermediul Ctrl + Alt + Del, care încurajează dezvoltatorii să creeze monitoare anti-virus, și servere de baze de date în calitatea lor de serviciu. Există o serie de motive pentru aceasta. Primele servicii sunt efectuate ca în cazul invizibil pentru utilizator și de sistem, iar pe de altă parte, blocarea este posibilă numai prin intermediul panoului de control al applet-ului de administrare, care nu încarcă programe rău intenționate, aceste servicii prin intermediul funcțiilor API. De exemplu, FireWall, care funcționează ca un serviciu de descărcare din memorie, este aproape imposibil, ceea ce lasă mai puține șanse ca scriitorii de virusi să blocheze protecția rețelei.
De ce ar trebui ca aceste oportunități să fie utile pentru noi? Cred că dacă ați decis să începeți să scrieți un proiect major, probabil ați venit deja cu aplicarea serviciilor, dar cum să utilizați serviciile pentru utilizatorii obișnuiți și chiar cu beneficiul? Voi încerca să răspund la această întrebare.
În acest articol, vom încerca să scriem un program de benzi desenate, care, la pornirea calculatorului, va da un mesaj despre sistemul de operare neînregistrat. Cred că utilizarea nu va fi dificil de găsit, pentru că toată lumea iubește glumele.
Vom scrie serviciul pe Delphi. De ce? Da, deoarece există deja toate spațiile libere pentru crearea serviciilor, spre deosebire de Visual Studio 6.0. Pro .NET Eu nu spun, pentru că puțini oameni au asupra bibliotecilor lor de calculator pentru a rula aplicații .NET, și trageți programul de 20 Mb bibliotecă - o sarcină ingrată. De unde începem? Da, ca de obicei: "Fișier" -> "Nou". Acum, cel mai interesant. În lista de șabloane care apare, selectați "Service Application" și vizualizați piesa de lucru pentru serviciul nostru viitor. În primul rând, vă sfătuiesc să acordați atenție proprietăților clasei TService. Putem schimba următorul spectru de parametri:
AllowPause - permite sau refuza suspendarea serviciului.
Vă recomand să setați valoarea la False, astfel încât utilizatorii să nu poată întrerupe serviciul prin panoul de administrare.
AllowStop - de asemenea, recomand să instalați în False,
deoarece oprirea serviciului pentru utilizatori este mai bine să nu dea - acest lucru este plin de faptul că gluma noastră va fi repede oprit.
De asemenea, este posibil să se stabilească de conectare și parola pentru privilegii a crescut, dar din moment ce noi nu știm parola de administrator al computerului, care va pune o gluma, cel mai bine este să lăsați aceste setări goale.
Acești parametri de bază. Principalul lucru nu uitați să setați numele serviciului în ceva neutru, astfel încât scurtătura să nu poată fi găsită atât de repede.
Acum, să ne uităm la componentele pe care le putem aplica. Și nu sunt mulți dintre ei. Nu putem folosi nimic vizual prin definiție, așa că vom folosi doar evenimente de serviciu. Mai mult decât atât, suntem interesați de evenimentul OnStart, deoarece este produs după descărcarea serviciului. În aceasta vom scrie următoarele:
procedura TService1.OnStart (Expeditor: TService; var Început: Boolean); var retval. int; începe retval: = ShowMessage ( „. Sistemul de operare a stabilit că utilizați o copie neînregistrată a sistemului, ceea ce este contrar acordului de licență Vă rugăm să eliminați imediat sistemul de operare și distribuțiile din toate mediile de stocare pentru a evita persecuția de către deținătorul drepturilor de autor“); se încheie;
Inspiră? Cred ca gluma nu este toata lumea va provoca ras;) Ca totul. Compilam.
[Verificați funcționarea serviciului]
Vom verifica mașina unui prieten-lamer (recomandat), din moment ce acești prieteni cred că toată lumea are. Nu e așa de simplu. Nu puteți pune serviciul în autostart, acesta trebuie instalat într-un mod special. Dar, pentru bucuria noastră, nu este atât de dificil, este suficient să lansăm serviciul pe care l-am creat cu cheia "/ INSTALL" fără ghilimele. Îndepărtarea serviciului prin panoul de control va fi imposibilă, deoarece toate butoanele pe care le-am blocat. Dar există încă o modalitate de ao elimina și cred că ar fi inutil să menționăm acest lucru. Pentru aceasta, este suficient să rulați fișierul de servicii EXE cu o altă cheie - "/ UNINSTALL", de asemenea, fără ghilimele.
Îți dau câteva sfaturi:
1. Nu spuneți prietenilor tăi lazer cum să elimini un serviciu
2. Nu folosiți aceste glume pe prieteni adevărați, deoarece aceasta poate submina o relație amicală.
Ca tot, noroc
Articole similare
Trimiteți-le prietenilor: