Delphi±àдϵͳ·þÎñÒ»£ºÈçºÎ±àдһ¸öϵͳ·þÎñ
Delphi±àдϵͳ·þÎñÒ»£ºÈçºÎ±àдһ¸öϵͳ·þÎñ ÊÕ²Ø
´ò¿ªDelphi±à¼Æ÷£¬Ñ¡Ôñ²Ëµ¥ÖеÄFile|New|Other...£¬ÔÚNew ItemÖÐÑ¡ÔñService ApplicationÏDelphi±ã×Ô¶¯ÎªÄ㽨Á¢Ò»¸ö»ùÓÚTServiceApplicationµÄй¤³Ì£¬TserviceApplicationÊÇÒ»¸ö·â×°NT·þÎñ³ÌÐòµÄÀ࣬Ëü°üº¬Ò»¸öTService1¶ÔÏóÒÔ¼°·þÎñ³ÌÐòµÄװж¡¢×¢²á¡¢È¡Ïû·½·¨¡£
TServiceÊôÐÔ½éÉÜ£º
AllowPause£ºÊÇ·ñÔÊÐíÔÝÍ££»
AllowStop£ºÊÇ·ñÔÊÐíÍ£Ö¹£»
Dependencies£ºÆô¶¯·þÎñʱËùÒÀÀµµÄ·þÎñ£¬Èç¹ûÒÀÀµ·þÎñ²»´æÔÚÔò²»ÄÜÆô¶¯·þÎñ£¬¶øÇÒÆô¶¯±¾·þÎñµÄʱºò»á×Ô¶¯Æô¶¯ÒÀÀµ·þÎñ£»
DisplayName£º·þÎñÏÔʾÃû³Æ£»
ErrorSeverity£º´íÎóÑÏÖØ³Ì¶È£»
Interactive£ºÊÇ·ñÔÊÐíºÍ×ÀÃæ½»»¥£»
LoadGroup£º¼ÓÔØ×飻
Name£º·þÎñÃû³Æ£»
Password£º·þÎñÃÜÂ룻
ServiceStartName£º·þÎñÆô¶¯Ãû³Æ£»
ServiceType£º·þÎñÀàÐÍ£»
StartType£ºÆô¶¯ÀàÐÍ£»
ʼþ½éÉÜ£º
AfterInstall£º°²×°·þÎñÖ®ºóµ÷Óõķ½·¨£»
AfterUninstall£º·þÎñÐ¶ÔØÖ®ºóµ÷Óõķ½·¨£»
BeforeInstall£º·þÎñ°²×°Ö®Ç°µ÷Óõķ½·¨£»
BeforeUninstall£º·þÎñÐ¶ÔØÖ®Ç°µ÷Óõķ½·¨£»
OnContinue£º·þÎñÔÝÍ£¼ÌÐøµ÷Óõķ½·¨£»
OnExecute£ºÖ´ÐзþÎñ¿ªÊ¼µ÷Óõķ½·¨£»
OnPause£ºÔÝÍ£·þÎñµ÷Óõķ½·¨£»
OnShutDown£º¹Ø±Õʱµ÷Óõķ½·¨£»
OnStart£ºÆô¶¯·þÎñµ÷Óõķ½·¨£»
OnStop£ºÍ£Ö¹·þÎñµ÷Óõķ½·¨£»
±¾ÎÄÀ´×ÔCSDN²©¿Í£¬×ªÔØÇë±êÃ÷³ö´¦£ºhttp://blog.csdn.net/Bear_hx/archive/2008/11/28/3403848.aspx
Ïà¹ØÎĵµ£º
unit winntService;
interface
uses
Windows,WinSvc,WinSvcEx;
function InstallService(const strServiceName,strDisplayName,strDescription,strFilename: string):Boolean;
procedure UninstallService(strServiceName:string);
implementation
function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: C ......
ȫͼ
±£´æÊý¾ÝΪtxtÎĵµ
±£´æÎªÍ¼Ïñ
´òÓ¡——pdf´òÓ¡»ú
ÏÂÒ»²½ ÓÐʱ¼äµÄ»° ʵÏÖ ±êÇ©Ò³Ãæ USBת´®¿Ú×Ô¶¯Ê¶±ðÉ豸 //ÖØÐ»ص½STM32ÉÏÃæ-02-26 21:35:21
......
Ò»¡¢ÀàÓë¶ÔÏó
1¡¢ Àà(Class)ÊÇÓû§¶¨ÒåµÄÊý¾ÝÀàÐÍ
2¡¢ ¶ÔÏó£¨Object£©ÊÇÀà(Class)µÄÒ»¸öʵÀý£¬»òÓÉÀඨÒåÊý¾ÝÀàÐ͵ÄÒ»¸ö±äÁ¿;
3¡¢ ÀàÓÐÒ»ÖÖ״̬£¨ÄÚ²¿Êý¾Ý£©£¬²Ù×÷£¨ÐÐΪ»ò·½·¨£©£¬ÊôÐÔ;
4¡¢ ¶ÔÏóÊÇÒ»¸öʵÌ壬³ÌÐòÔËÐÐʱ»áΪÆäÄÚ²¿±íÏÖ·ÖÅäһЩÄÚ´æ;
5¡¢ ÀàÓë¶ÔÏóÖ®¼äµÄ¹ØÏµºÍ±äÁ¿ÓëÀàÐ ......
ǰ¶Îʱ¼äÒòΪÏîÄ¿ÐèÒª£¬»ñȡָ¶¨ÎļþµÄͼ±ê£¬ÈÆÁ˺ܶàÍä×Ó£¬ÏÖÔÚŪ³öÀ´ÁË£¬¸ú´ó¼Ò¹²ÏíÏÂ.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,ShellAPI, ExtCtrls;
type
TForm1 = class(TForm)
l ......