大虾讲讲service程序(100分)

1。可以运行于任何机器上吗？
2。除了没界面,可以启动、暂停、停止外，有什么特点?
3。我做的一个服务，是定时触发一个事件，怎么除了run/install时运行一下外，
再启动，也没有我想要的运行结果了？
4。讲讲原理、用途，特点......

1.应该可以在安装了Windows NT的机器上运行.
2.可以有界面. 开机可以启动.多线程
3.你可以定时触发一个事件, 也可以一直执行它,期间Sleep一点时间.
4.你可以用它做FTP服务器,或其它服务. 你可以用它定义执行某些操作.

1，我想Server程序可以运行任何系统，例如，Windows,NT,2000等等。
2，可以用界面

3.我想定时读取数据库怎么没反应哪?
你看：
unit Unit1;

interface

uses
; Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs,
; Db, DBTables, ExtCtrls;

type
; TService2 = class(TService)
; ; Timer1: TTimer;
; ; Query1: TQuery;
; ; Database1: TDatabase;
; ; procedure Timer1Timer(Sender: TObject);
; private
; ; { Private declarations }
; public
; ; function ChangFile:string;
; ; function GetServiceController: TServiceController; override;
; ; procedure GetData;
; ; { Public declarations }
; end;

var
; Service2: TService2;

implementation

{$R *.DFM}

procedure ServiceController(CtrlCode: DWord); stdcall;
begin
; Service2.Controller(CtrlCode);
end;

function TService2.ChangFile: string;
begin
begin
; Query1.DatabaseName := 'xxxx';
; ; with Query1 do
; ; ;begin
; ; ;Close;
; ; ;SQL.Clear;
; ; ;SQL.Add('select xx字段 From 表名 order by xx字段 DESC');
; ; ;ExecSQL;
; ; ;Active:=true;
; ; ;first;
; ; ;result:=Query1.FIELDS[0].ASSTRING;
; ; ; end;

end;
end;

procedure TService2.GetData;
var str:string;
; MyTxtFile:textFile;
; i:integer;
begin
; str:=ChangFile;
; Assignfile(MyTxtFile,'E:/My Documents/Service相关/bb.txt');
; Rewrite(MyTxtFile);
; try
; ;for ; ;i:=1 to 5 do
; ;writeln(MytxtFile,str);
; ;finally
; ;CloseFile(MyTxtFile);
; end;

end;

function TService2.GetServiceController: TServiceController;
begin
; Result := ServiceController;
end;

procedure TService2.Timer1Timer(Sender: TObject);
begin
Timer1.Interval:=10000;
GetData;
Timer1.Enabled:=true;
end;

end.
只是在安装服务时，运行了一下，然后再无反应。

而如果不对数据库操作则可以定时进行别的操作。
？？

用SvCom开发吧，又快有好。

多人接受答案了。