用API写系统服务程序(200分)

function InstallService:Boolean;
var
schSCManager,schService:THANDLE;
begin
schSCManager:=OpenSCManager(nil,nil,SC_MANAGER_ALL_ACCESS);
if schSCManager=0 then
begin
//MessageBox(0,'联接服务控制管理器失败','Error',MB_OK);
Result:=false;
exit;
end;
//GetCurrentDirectory(1024,strDir); // 取到应用程序所在的目录
//strlcat(strDir,'/123.exe',1024); // 当前目录下的服务应用
//lpszBinaryPathName:=strDir;
schService:=CreateService(
schSCManager, // 服务控制管理句柄
'Winats', // 服务名称 需要和 服务应用名 相同
'Windows Administrators Instrumentation', // 显示的服务名称
SERVICE_ALL_ACCESS, // 存取权利
SERVICE_WIN32_OWN_PROCESS, // 服务类型
SERVICE_AUTO_START, // 启动类型
SERVICE_ERROR_NORMAL, // 错误控制类型
pchar(Syspath+'123.exe'), // 服务程序
nil, // 组服务名称
nil, // 组标识
nil, // 依赖的服务
nil, // 启动服务帐号
nil); // 启动服务口令

if schService = 0 then
begin
//MessageBox(0,'无法建立指定的服务对象','Error',MB_OK);
Result:=false;
exit;
end;
CloseServiceHandle(schService);
//MessageBox(0,'已经成功地安装了服务对象','信息',MB_OK);
Result:=true;
end;


安装服务的函数，服务是可以安装了，却不能运行，出现1053错误，请大家给我个详细的代码，谢谢

这么没人回答啊

http://www.delphibbs.com/delphibbs/dispq.asp?lid=2893430 我照此成功写过服务

继续顶。。。。。。。。。

看看这个： 可能是这种原因
http://topic.csdn.net/t/20050225/22/3807456.html