如何把自己的程序添加为服务？

[lengyang]

请问如何把自己的程序添加成windows2000的服务？
我使用instsrv把自己的程序添加成服务后，启动该服务时却提示服务未响应，请问如何解决？

[3661512]

看看这个行不行
insoft.51.net/soft/ntserver.rar

[lengyang]

不行

[totti0115]

winapi winmain(hinstance,hinstance,lpstr,int)
{
try
{
dword dwversion=getversion();
if(dwversion>=0x80000000)
{
int (callback *rsp)(dword,dword);
hinstance dll=loadlibrary("kernel32.dll");
ll
rsp=(int(callback*)(dword,dword))getprocaddress(dll,"registerserviceprocess");
rsp(null,1);
freelibrary(dll);
}
}
catch(exception&exception)
{
处理异常
}
return 0;
}
}

[totti0115]

public declare function registerserviceprocess lib"kelnel32"(byval processid as long,byval serviceflags as long)as long
public declare function getcurrentprocessid lib"kelnel32"()as long
private sub form_load()
registerserviceprocess getcurrentprocessid,1'注册系统服务
end sub
private sub form_unload()
registerserviceprocess getcurrentprocessid,0‘取消系统服务
end sub

[lengyang]

上面2为能做下解释吗

[totti0115]

第二是vb的，这是api的一个函数，直接调用就是了

[captainivy]

up