关于注册为系统服务程序的问题（在线等！！） ( 积分: 200 )

还是不可以！！！

每回高手们给的代码都让我失望

1 你的代码无法下载<br>2 你没有说明直接在桌面上运行1.exe是否能关闭，也没有说明如果在服务中<br> &nbsp;调用calc.exe或者notepad.exe能否关闭<br>3 你没有说明你的运行环境，仅仅通过你说不可以大家只能猜测<br>4 也许是高手们的回答有问题，但也可能是你的理解有问题。

运行环境:delphi6,win2000/xp,sp1.<br>直接在桌面上运行1.exe是可以关闭，也可以用任务管理器终止。<br>如果在服务中调用1.exe可以关闭，但无法用任务管理器终止。<br>我写的系统服务程序程序用Winexec('C:/1.exe',SW_Normal);调用1.exe可以关闭，但无法用任务管理器终止。<br>http://219.134.128.57/cgi-bin/dl/07515ED4349C9C497ECE7E108A1D0A5C55FB44BC53D66AF88C051E6FE9381B22520CA2D7BBEE7C7E4CF999A62B9CAD17712D/hzx.rar

你试试吧，我只修改了这部分内容。<br><br>procedure SendHokKey;stdcall;<br>var<br> &nbsp;sa : TSecurityAttributes;<br> &nbsp;sd : TSecurityDescriptor;<br> &nbsp;si : TStartupInfo;<br> &nbsp;pi : TProcessInformation;<br>begin<br> &nbsp;InitializeSecurityDescriptor(@sd, SECURITY_DESCRIPTOR_REVISION);<br> &nbsp;SetSecurityDescriptorDacl(@sd, True, nil, False);<br><br> &nbsp;sa.nLength := SizeOf(TSecurityAttributes);<br> &nbsp;sa.lpSecurityDescriptor := @sd;<br> &nbsp;sa.bInheritHandle := True;<br><br> &nbsp;ZeroMemory(@si, SizeOf(si));<br> &nbsp;ZeroMemory(@pi, SizeOf(pi));<br><br> &nbsp;si.cb := sizeof(si);<br> &nbsp;CreateProcess(nil, 'C:/winnt/notepad.exe', @sa, @sa, FALSE, 0, <br> &nbsp; &nbsp;nil, nil, si, pi);<br> &nbsp;CloseHandle(pi.hThread);<br> &nbsp;CloseHandle(pi.hProcess);<br>end;

多人接受答案了。