哪位大侠指点一下在win2k如何下如何编写服务程序？请举个例子说明。可以加分。谢谢！

2001-06-27 10:18:18 203 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

单硬盘笔记本系统无损迁移（Ghost）方法一键恢复CGI是一个集备份、恢复、NT6.x安装（自动修复引导）等功能于一身的系统备份恢复软件，拥有GHOST和ImageX双核心，32/64位自适应，支持GHO/WIM/SWM，支持UEFI+GPT，支持动态磁盘，对无人值守配置文件的支持，使其功能得到了极大的扩展，可实现真正的一键！3. 支持在UEFI + GPT平台中往全新的GPT硬盘（有ESP分区）恢复64位的WIN7/WIN8/WIN8.1的GHO/WIM/SWM镜像，当然，需要用支持UEFI启动的U盘/光盘启动到PE进行恢复。阅读详情

...全文

【协议森林】Window网络性能调优方法 1.方法在命里提示符中输入：　　netsh interface tcp show global 后，会发现“接收窗口自动调节级别”是normal，问题就出现在这儿，只要将其关闭即可。 Win7系统网速不行怎么办? 三联　　同样是一行命令(需要管理员权限进行操作)：　　netsh int tcp set global autotuninglevel=disabled 后会收到“确定”消息，再试试，会感觉网络速度回快那么一点点(嗯，也可能是心理作用)。　　如果你现在还在用Windows 7该怎么阅读详情

Tod

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

david_ye 2001-07-12

打赏
举报

To:Tod(菜鸟)　
我前一个月就发过这个贴子了，还被版主臭骂一顿，
到一前去找找。
Crob讲的很明确了。

Tod 2001-07-12

打赏
举报

我回头试试，行的话马上给大虾加分，并表示万分感激！！

copy_paste 2001-07-12

打赏
举报

看看先。

//工程文件
program Project1;

uses
Windows, SvcMgr, WinSvc, Forms, SysUtils,
Unit1 in 'Unit1.pas' {Service1: TService},
Unit2 in 'Unit2.pas' {Form2};

{$R *.RES}

const
SServiceName = 'MyApplication';
{是否install, or uninstall}
function Installing: Boolean;
begin
Result := FindCmdLineSwitch('INSTALL',['-','\','/'], True) or
FindCmdLineSwitch('UNINSTALL',['-','\','/'], True);
end;

function StartService: Boolean;
var
Mgr, Svc: Integer;
begin
Result := False;
Mgr := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if Mgr <> 0 then
begin //这函数就像在“服务”中启动某个服务一样的作用。
Svc := OpenService(Mgr, PChar(SServiceName), SERVICE_ALL_ACCESS);
Result := Svc <> 0;
CloseServiceHandle(Mgr);
end;
end;

begin
if not Installing then
begin{如果有本程序实例，退出}
CreateMutex(nil, True, 'MyService');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
MessageBox(0, 'Already Running', 'Error', MB_ICONERROR);
Halt;
end;
end;
//如果是出现在“服务”中而且是自动启动，则是下面情况
if Installing and StartService then
begin
SvcMgr.Application.Initialize;
Service1 := TService1.CreateNew(SvcMgr.Application, 0);
SvcMgr.Application.CreateForm(TForm2, Form2);
SvcMgr.Application.Run;
end
else{否则是以Explorer, 双击来启动本程序，则是这种情况}
begin
Forms.Application.Initialize;
Application.CreateForm(TForm2, Form2);
Form2.Initialize;
Application.Run;
end;
end.

//TService服务单元（menus->new->Service Application）
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, SvcMgr, Dialogs;

type
TService1 = class(TService)
procedure ServiceStart(Sender: TService; var Started: Boolean);
procedure ServiceStop(Sender: TService; var Stopped: Boolean);
private
{ Private declarations }
public
function GetServiceController: TServiceController; override;
{ Public declarations }
end;

var
Service1: TService1;

implementation

uses Unit2;
{$R *.DFM}

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

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

procedure TService1.ServiceStart(Sender: TService; var Started: Boolean);
begin {Tell Form2 进行初始工作}
PostMessage(Form2.Handle, WM_Initialize, 0, 0);
end;

procedure TService1.ServiceStop(Sender: TService; var Stopped: Boolean);
begin //退出
PostMessage(Form2.Handle, WM_Quit, 0, 0);
end;

end.

//TService只是做启动用，真正作用的在你的Form实例中，在你的Form中作你的服务。
//TForm2
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

const
WM_Initialize = WM_User + 100;

type
TForm2 = class(TForm)
private
{ Private declarations }
procedure WMStart(var Message: TMessage); message WM_Initialize;
public
procedure Initialize;
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.DFM}

{ TForm2 }

procedure TForm2.Initialize;
begin
//Initialize Form all object
end;

//如果是启动“服务”中启动的，这里会有用的。
procedure TForm2.WMStart(var Message: TMessage);
begin
Initialize;
end;

//然后再写其它的服务类或什么的，写在Initialize中
end.

写的比较简单，都是从Scktsrvr.dpr copy过来，你怎么不去看看。

Tod 2001-07-11

打赏
举报

半天还是没说清楚具体怎么写，与写通常的程序有什么差别！都只说一些框框，只是框框是不够的，我不是专家！

Crob 2001-07-01

打赏
举报

File菜单->New下选择Service或Service Application

建议选择使用Service Application建立服务程序。

编译后的执行文件在开始菜单的"运行"中使用以下方法加载和卸载服务：
d:\service_name.exe /install //加载服务程序
d:\service_name.exe /uninstall //卸载服务程序

加载服务后可以在控制面板->管理工具的"服务"中找到该服务。

delphi5编写出的服务程序在winNt和win2k中通用。另外在uses WinSvc；，在WinSvc中有很多关于控制服务的函数。

很详细了，给分吧

copy_paste 2001-06-30

打赏
举报

Delphi有个VCL程序,那里面你可参考一下。
\delphi5\source\vcl\scktsrvr.dpr
也好像就是TSocketService类中的OnStart, OnShutDown这两个事件，其它的事就像Delphi程序一样用吧

猛禽 2001-06-30

打赏
举报

最完整的例子是那个SCKTSVRV的源程序

Tod 2001-06-30

打赏
举报

我真的泄气了

artgolf 2001-06-29

打赏
举报

我做过，但用vc做的，delphi中的那个太简单，缺少用户自定义控制方法，对空闲触发事件和紧急触发事件也没有例子，而vc中有许多完善的例子，你可以把它改写成delphi的。比如，要实现空闲时每十分钟执行一次任务，当用户定义的紧急事件到来时，立即执行任务，怎么办？记得在msdn中有几个例子。

Tod 2001-06-29

打赏
举报

大家说说啊，怎么没人？？

airhorse 2001-06-28

打赏
举报

不是，大家不会，只是做一个服务，而且要调试成功，比较麻烦，其实delphi作的服务已经够简单了，自己试试吧，不要光问不炼，
只等现成的，
你只要注意，（onstart，onshutdown....等）几个事件的处理，以及服务线程的可调度设计，就行了，

还有，可以有界面的，大概是在onCreate事件里处理。多动动手，delphi里有简单的例子的！

Tod 2001-06-28

打赏
举报

提前一次，怎么还没有人回答？？？？？？？？？？？？？？？？？？？？？

Crob 2001-06-27

打赏
举报

在winNt下怎么做在win2k就怎么做，一样的。

guo 2001-06-27

打赏
举报

有界面吗? 是什么服务?
一般做成服务的是一些通信程序.

Tod 2001-06-27

打赏
举报

为什么不能有窗口界面呢？我见过有写服务程序有窗口界面啊？

它的编程方法和普通的程序有什么差别吗？如果有，是什么呢？

guo 2001-06-27

打赏
举报

delphi->new->service开始一个服务程序框架,设置service属性,对afterinstall,beforeinstall,on creaet,ondestory,onpause,onstart,onstop进行编程.
注意:不要有窗口界面

Tod 2001-06-27

打赏
举报

怎么没人？

Tod 2001-06-27

打赏
举报

很难吗？怎么没多少回复？？

Tod 2001-06-27

打赏
举报

我NT下没做过，所以不知道
有界面的

哪位大侠指点一下在win2k如何下如何编写服务程序？请举个例子说明。可以加分。谢谢！

相关推荐