请问哪位高手写过windows services，能给我个详细的例子吗？(200分)

finalrinoa · 2003-07-17

怎样才能在services中调用windows拨号程序

finalrinoa · 2003-07-17

E-Mail:lunart@sina.com

c~c · 2003-07-17

the service (just beeps the speaker every 5 secs) : unit Unit1; interface uses  Windows, Messages, SysUtils, Classes,SvcMgr, ExtCtrls  ; type  TService2 = class(TService)    Timer1: TTimer;    procedure Timer1Timer(Sender: TObject);  private    { Private declarations }  public    function GetServiceController: TServiceController; override;    { Public declarations }  end; var  Service2: TService2; implementation {$R *.DFM} procedure ServiceController(CtrlCode: DWord); stdcall; begin  Service2.Controller(CtrlCode); end; function TService2.GetServiceController: TServiceController; begin  Result := ServiceController; end; procedure TService2.Timer1Timer(Sender: TObject); begin MessageBeep(1); end; end. control app(not nessesary if you use control panel) : unit Unit1; interface uses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,  StdCtrls,WinSvc; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1; implementation {$R *.DFM} function ServiceStart(sMachine, sService: String) : Boolean; var   schm,   schs: SC_Handle;   ss: TServiceStatus;   psTemp: PChar;   dwChkP: DWord; begin   ss.dwCurrentState := 0;  schm := OpenSCManager(PChar(sMachine), nil, SC_MANAGER_CONNECT);   if (schm>0) then   begin    schs := OpenService(schm, PChar(sService), SERVICE_START or SERVICE_QUERY_STATUS);     if (schs>0) then    begin      psTemp := nil;       if (StartService(schs, 0, psTemp)) then         if (QueryServiceStatus(schs, ss)) then          while (SERVICE_RUNNING<>ss.dwCurrentState) do           begin            dwChkP := ss.dwCheckPoint;             Sleep(ss.dwWaitHint);            if (not QueryServiceStatus(schs, ss)) then             Break;             if ss.dwCheckPoint <> 0 then               Break;           end;       CloseServiceHandle(schs);     end;    CloseServiceHandle(schm);   end;  Result := SERVICE_RUNNING=ss.dwCurrentState; end; function ServiceStop(sMachine, sService: String) : Boolean; var   schm,   schs: SC_Handle;   ss: TServiceStatus;  dwChkP: DWord; begin schm := OpenSCManager(PChar(sMachine), nil, SC_MANAGER_CONNECT);  if (schm>0) then   begin     schs := OpenService(schm, PChar(sService), SERVICE_STOP or SERVICE_QUERY_STATUS);     if (schs>0) then     begin      if (ControlService(schs, SERVICE_CONTROL_STOP, ss)) then         if (QueryServiceStatus(schs, ss)) then          while (SERVICE_STOPPED<>ss.dwCurrentState) do          begin           dwChkP := ss.dwCheckPoint;             Sleep(ss.dwWaitHint);             if (not QueryServiceStatus(schs, ss)) then               Break;             if ss.dwCheckPoint <> 0 then               Break;           end;       CloseServiceHandle(schs);     end;    CloseServiceHandle(schm);   end;   Result := SERVICE_STOPPED=ss.dwCurrentState; end; procedure TForm1.Button1Click(Sender: TObject); begin ServiceStart('','Service2'); file://ServiceStart('//computername','Alerter'); file://this would be for remote services end; procedure TForm1.Button2Click(Sender: TObject); begin ServiceStop('','Service2'); end; end. you can also install it from code (still working on that part myself) using CreateService etc.. theres very little docs on services so if anyone else has any feel free to add here

如云 · 2003-07-18

http://www.delphibbs.com/delphibbs/dispq.asp?LID=2021867

finalrinoa · 2003-07-18

to 如云 我要的是windows services的具体写法和注意事项，我并不是要什么其它的东西 不过还是谢谢你

delp · 2003-07-21

to finalrinoa    用Delphi的向导就 OK 了，其他和写正常的应用程序没什么区别。关键是你的服务与应用程序提供什么接口（TCP/IP/RPC/共享内存....）。

laoli · 2003-07-21

---- Windows NT服务程序不同于一般的运行程序，它不需要NT登录进去，只需要开机进入NT系统便可以运行，一般用于系统服务方面的应用，学会编写NT服务程序对网络管理人员而言是非常重要的，Delphi4.0作为一种高效、快速、强大的开发语言，为开发NT服务程序提供了非常便捷的方法，加上其可视化界面以及与数据库的完美结合，使我们开发与数据库有关的NT服务程序变得非常简单，下面以编写一个NT定期备份程序为例，介绍如何运用Delphi编写Windows NT的服务程序。 ---- 打开Delphi编辑器，选择菜单中的File|New，在New Item中选择Service Application项，Delphi便自动为你建立一个基于TServiceApplication的新工程，TserviceApplication是一个封装NT服务程序的类，它包含一个Tservice1对象以及服务程序的装卸、注册、取消方法。 ---- 将Tservice1对象的属性做下列更改： DisplayName与Name改为：DataBackup， ServiceStartName属性改为系统管理员 用户(如DOMAIN/Administrator)和Password则输入用户密码 ---- 这样，服务程序运行时将自己以该用户的权限操作NT。 ---- 这样，一个NT服务程序编写已经完成，在Delphi编辑器中选择菜单Run|Parameters，在Parameters中输入/install，程序编译运行后，一个名为DataBackup的NT服务程序已经安装好，你可以双击控制面板中的服务项目，将会看到此服务程序，只是此服务程序没有任何东西而已；在Delphi编辑器中选择菜单Run|Parameters，在Parameters中输入/uninstall，程序编译运行后，系统将会将此服务程序卸掉。 ---- 服务程序是通过控制一个线程的生成、暂停、继续、停止来达到服务目的的，因此我们必须加入一个Tsession对象来编写文件自动备份代码，在Delphi编辑器中选择菜单中的File|New，在New Item中选择Thread Object项，Delphi会提示你为该Tsession对象输入一个名称(输入DataCopy),Delphi便生成了一个基于Tsession的DataCopy对象，并提供了一个Execute过程供重载，我们要Execute过程中输入以下程序： var Hour, Min, Sec, MSec: Word; TimeStamp,DirectoryEdit1,DirectoryEdit2:String; SearchRec: TSearchRec; Source,Temp,Dest

char; F,F1:THandle; FF,FF1:WIN32_FIND_DATA; Begin {每次文件备份执行时间} TimeStamp:='12:00'; {文件备份源目录} DirectoryEdit1:='C:/temp'; {文件备份目录} DirectoryEdit2:='C:/temp1'; while True do begin DecodeTime(Time,Hour, Min, Sec, MSec); IF Trim(TimeStamp)=Format ('%-2.2d:%-2.2d',[Hour,Min]) then begin GetMem(Source,250); GetMem(Dest,250); GetMem(Temp,250); StrPcopy(Dest,DirectoryEdit2+'/ '+FormatDateTime('YYYYMMDD',Date)); CreateDirectory(Dest,nil); IFFindFirst(DirectoryEdit1+'/*.*',faAnyFile, SearchRec)=0 then begin repeat StrPcopy(Source,DirectoryEdit1+'/'+SearchRec.Name); StrPcopy(Dest,DirectoryEdit2+'/' +FormatDateTime('YYYYMMDD',Date)+'/'+SearchRec.Name); copyfile(Source,Dest,False); until FindNext(SearchRec)< >0; end; SysUtils.FindClose(SearchRec); FindClose(F); FreeMem(Source,250); FreeMem(Dest,250); FreeMem(Temp,250); end; sleep(60000); end; end; ---- 此线程执行时每隔一分钟将检查一次时间，看是否到了备份时间，如果是则将DirectoryEdit1中的所有文件拷到DirectoryEdit2目录中去。 ---- 现在编写服务控制DataCopy线程的代码，在TdataBackup对象中的OnStart、OnStop、OnPause、OnContinue事件中分别输入如下代码： procedure TDataBackup.DataBackupStart (Sender: TService; var Started: Boolean); begin DataThread:= TDataCopy.Create(False); Started := True; end; procedure TDataBackup.DataBackupStop (Sender: TService; var Stopped: Boolean); begin DataThread.Terminate; Stopped := True; end; procedure TDataBackup.DataBackupPause (Sender: TService; var Paused: Boolean); begin DataThread.Suspend; Paused := True; end; procedure TDataBackup.DataBackupContinue (Sender: TService; var Continued: Boolean); begin DataThread.Resume; Continued := True; end; ---- 这样一个文件自动备份程序已经完成，编译好后，加上/install参数执行程序，系统会将此服务程序安装，由于服务程序中StartType属性为stAuto，NT每次启动时，此程序自动执行，你可以在控制面板中的服务项目来启动、暂停、恢复、停止它，也可以加上/uninstall参数执行程序来卸掉它。通过上述例子我们可以看到，用Delphi编写NT服务器程序十分方便，而且你也可以在Tservice对象上加许多非可视化控件来与数据库关联，实现很多复杂的功能。

finalrinoa · 2003-07-21

谢谢laoli

请问哪位高手写过windows services，能给我个详细的例子吗？(200分)

finalrinoa

Unregistered / Unconfirmed

finalrinoa

Unregistered / Unconfirmed

c~c

Unregistered / Unconfirmed

如云

Unregistered / Unconfirmed

finalrinoa

Unregistered / Unconfirmed

delp

Unregistered / Unconfirmed

laoli

Unregistered / Unconfirmed

finalrinoa

Unregistered / Unconfirmed

Similar threads