API函数RegisterServiceProcess如何才能在Delphi5中被调用呢？

Question

这个函数的声明是
function RegisterServiceProcess(dwProcessId:DWORD ; dwType:Dword):Dword; external 'kernel32.dll'  name 'RegisterServiceProcess';(也可能是user32.dll，我也记不清了，主要是没有98，没法试，你自己试吧)
一般用GetCurrentProcessID获取第一个参数，第二个参数如果不声明常量的话
直接用0,1就可以了。 具体作用一试便知。不过此函数只再95,98下能用。2000,NT均不可。 我的就是2000,所以不能仔细试验。抱歉

Answer 1

这个函数的声明是
function RegisterServiceProcess(dwProcessId:DWORD ; dwType:Dword):Dword; external 'kernel32.dll'  name 'RegisterServiceProcess';(也可能是user32.dll，我也记不清了，主要是没有98，没法试，你自己试吧)
一般用GetCurrentProcessID获取第一个参数，第二个参数如果不声明常量的话
直接用0,1就可以了。 具体作用一试便知。不过此函数只再95,98下能用。2000,NT均不可。 我的就是2000,所以不能仔细试验。抱歉

Answer 2

这个函数的声明是
function RegisterServiceProcess(dwProcessId:DWORD ; dwType:Dword):Dword; external 'kernel32.dll'  name 'RegisterServiceProcess';(也可能是user32.dll，我也记不清了，主要是没有98，没法试，你自己试吧)
一般用GetCurrentProcessID获取第一个参数，第二个参数如果不声明常量的话
直接用0,1就可以了。 具体作用一试便知。不过此函数只再95,98下能用。2000,NT均不可。 我的就是2000,所以不能仔细试验。抱歉