Писане услуга в Делфи
Би било хубаво да се разбере какво общо обслужване. Този термин се появява в NT системи, както и широко разпространени с пускането на Win2k и XP операционни системи. Безспорно предимства пред конвенционалните софтуерни услуги осезаеми. Това натоварване, преди да заредите редовните програми и повече привилегии и повече контрол върху системата. Но най-важното - те не могат да се разтоварят чрез Ctrl + Alt + Del, която насърчава разработчиците да създават антивирусни монитори и сървъри на бази данни в качеството си на обслужване. Фактът, че има няколко причини. Първите услуги се извършват така, сякаш невидим за потребителя и системата, и второ тяхното блокиране е възможно само чрез аплета за администриране и контрол, който не качва злонамерени програми, тези услуги с помощта на API функции. Така например, защитна стена, работи като услуга да се разтоварят от паметта е почти невъзможно, което оставя по-малко шансове за авторите на вируси, за да блокират защитна стена.
Защо тези възможности могат да бъдат полезни за нас? Мисля, че ако решите да преследват написването на голям проект, вероятно вече си помисли за използването на услуги, но да ползва услугите на обикновените потребители, така че дори и с ползата? На този въпрос се опитам да отговоря.
В тази статия ще се опитам да напиша хумористичен програма, която можете да стартирате компютъра, ще се появи съобщение на nezaregistrirovannosti операционна система. Мисля, че използването на я намеря няма да е трудно, защото както всички вицове.
Писане услуги, ние ще в Делфи. Защо? Да, защото там вече имаме всички празните места за създаването на услуги за разлика от Visual Studio 6.0. Pro .NET не казвам, защото малко хора имат на компютъра си библиотеки, за да стартирате .NET приложения, и преместете програмата за 20 Mb библиотека - неблагодарна задача. Така че откъде да започнем? Да, както обикновено: "File" -> "Нова". Сега най-забавната част. В резултат на списъка с шаблони, изберете "Service Application" и съзерцавам шаблона за бъдещето ни услуга. Първото нещо, което препоръчваме да се обърне внимание на имоти TService клас. Ние имаме възможността да се промени след гама от възможности:
AllowPause - да разрешат или забранят преустанови услугата.
Аз препоръчвам да се определи стойността на False, така че потребителите не могат да спрат действието на услугата чрез административния панел.
AllowStop - също така препоръчва да False,
Е, как да спре потребителите на услуги е по-добре да не се даде - това е изпълнен с факта, че нашата шега спре бързо.
Възможно е също така да се създаде име и парола за повишени привилегии, но тъй като ние не знаем администраторска парола на компютъра, което ще постави на шега, че е най-добре да оставим тези настройки празна.
Това е всички основни параметри. Важно е не забравяйте да зададете името на услугата за нещо неутрално за futku не толкова бързо, можете да намерите.
Сега нека да се справят с тези компоненти, които можем да използваме. И те не са толкова много. Visual нищо не може да се използва за да се определи, така че ние ще използваме само обслужване на събитието. Преди всичко ние се интересуваме от OnStart на събитието, тъй като се извършва след зареждането на услуги. Той предписва следното:
процедура TService1.OnStart (подателя: TService; Var стъпки: булеви); Var retval. вътр; започнем retval: = ShowMessage ( ".. Операционната система е установил, че използвате нерегистрирано копие на системата, която е в разрез с лицензионното споразумение Моля, незабавно премахване на операционната система и нейните разпределения от всички носители за съхранение, за да избегнат преследване от собственика на авторските права"); приключи;
Вдъхновява? Мисля, че не всяка шега ще предизвика смях) Изглежда всичко. Съставете.
[Проверка на изпълнението на услугата]
Ще проверим на машина приятел Lamer на (препоръчително), тъй като такива приятели, че всеки има. Това не е толкова просто. Службите на стартиране не могат да се поставят, е необходимо да инсталирате специален начин. Но радостта ни не е толкова трудно, създадохме достатъчно за стартиране на услугата с ключа "/ Install" без кавичките. Премахване на обслужване от контролния панел не е възможно, защото всички бутони сме блокирани. Но метода на отстраняването е все още там и мисля да се спомене, че би било излишно. За да направите това, просто стартирайте EXE файл с различно ключ услуга - "/ UNINSTALL" също без кавички.
Аз ще ви дам няколко съвета:
1. Никога не кажи на приятел-Lamer начин за премахване на услугата
2. Да не се използват тези шеги в истинските приятели, защото това може да подкопае приятелските отношения.
Подобно на всички късмет
Свързани статии