如何把我的程序改为NT服务程序的自动运行的程序？请高手指导

Question

现在我在做一个小程序我要通过WINDOWS自带的远程桌面去控制我的程序但是我每次控制远程机的时候我看不到我的程序但这个程序确实运行着，如果我再开我这个程序的话那么那台远程机上就有2个我的程序在运行了，现在我就想把我的程序做成在WIN的服务中启动一个自做的服务来启动我的程序那样一台机子上就只能运行一个我的程序了 但我不知道怎么做 向高手请教。我的程序是个FORM界面程序

Answer 1

>>我每次控制远程机的时候我看不到我的程序但这个程序确实运行着遠程桌面控制, 并不一定與那部機當前登錄的桌面一樣的
>>现在我就想把我的程序做成在WIN的服务中启动一个自做的服务来启动我的程序那样
其實, 你用socket 之類的通訊來操作, 就比較安全service 可參考這裹: http://borland.mblogger.cn/aiirii/category/400.aspx

Answer 2

呵呵
服务程序没有界面的，改用数据模块吧http://lysoft.7u7.net

Answer 3

我知道服务是没有界面的 但我开始做的程序是FORM的我现在要把这个程序加一个WIN服务

Answer 4

我现在是通过SERVICE APPLICATION已经将服务加到WIN服务里去了  但我怎么做到启动/关闭这个服务就启动/关闭我的应用程序呢，请高手执导。我马上要交任务了急啊！

Answer 5

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:Pchar;
   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对象上加许多非可视化控件来与数据库关联,实现很多复杂的功能。 ---------------------------------------------------------------------------------这是抄来的
我也做过一个服务的例子，安装了以后我就忘记了，过一几天，我看到那个东东才想起来，要不是名字就叫PROJECT1的话，还以为是病毒呢
:)

Answer 6

我把我的程序给你们看下
unit Unit0;interface uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs; type
TService1 = class(TService) 
procedure ServiceStart(Sender: TService; var Started: Boolean); 
procedure ServiceExecute(Sender: TService); 
procedure ServiceStop(Sender: TService; var Stopped: Boolean);
procedure ServicePause(Sender: TService; var Paused: Boolean); 
procedure ServiceContinue(Sender: TService; var Continued: Boolean); 
private 
{ Private declarations }
fPaused : boolean; 
public 
function GetServiceController: TServiceController; override; 
{ Public declarations }
end;var 
Service1: TService1;implementationuses Unit2, MainUnit, UnitDMMain;{$R *.DFM} procedure ServiceController(CtrlCode: DWord); stdcall;
begin
Service1.Controller(CtrlCode);
end; procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin 
//MainForm.Close;
Stopped := false;
if MainForm.CloseQuery then
begin
ServiceThread.Terminate;
fPaused := TRUE;
Stopped := TRUE;
MainForm.Free;
end;
end;procedure TService1.ServicePause(Sender: TService; var Paused: Boolean); 
begin 
Paused := True;
fPaused := TRUE;
end; procedure TService1.ServiceContinue(Sender: TService;
var Continued: Boolean);
begin 
Continued := True;
fPaused := FALSE;
end; 
function TService1.GetServiceController: TServiceController;
begin 
Result := ServiceController;
end; procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin 
Started := TRUE;
//DM_Main:=TDM_Main.Create(self);
MainForm:=TMainForm.Create(self);
//msgbox('dssdaf');
//MainForm.FormShow(MainForm);
MainForm.Show;
//MainForm.wmsyscommand();
end;procedure TService1.ServiceExecute(Sender: TService);
begin
while not Terminated do begin
if not fPaused then begin
Sleep(0);
end;
ServiceThread.ProcessRequests(FALSE);
end;
end;
end.
我把服务启动后程序跳出来了 我把程序关闭后再看一下服务里面服务还是启动的 怎么才能做到我关闭程序,服务也跟着也停止呢,还有我怎么做到启动服务后把程序放到系统托盘上而不是显示程序界面呢
请各位高手帮帮忙啊 我很急啊 小弟第一次做这样的程序弄不太懂.如果各位大虾觉得分不够的话我再给