A：
方法一、
procedure TFooParserService.ServiceBeforeInstall(Sender: TService);
begin
{$ifdef BINDING_MSSQLSERVER}
Self.Dependencies.Add;
Self.Dependencies.Items[0].Name := 'MSSQLSERVER';
{$endif}
end;
方法二、
在service的create事件中添加
TDependency(Dependencies.add).name:='MSSQLSERVER';
Q：如何调试？
A：
调试是可以的：
最简单的就是先作成程序，调试没有问题了再转成服务。 当然如果你不想这样的话当然也可以，方法如下：
首先，在"Run|Parameters..."窗口“Parameters”中使用参数/Install运行服务程序，此时服务安装到系统中，然后用服务管理器启动安装的服务，回到Delphi中，到菜单Run-->Attach Process中，Attach到服务的Exe程序即可，如果找不到这个Exe，选择下面的“Show System Processes”。此时可以正常下断点等。
需要注意的是：
1.Attach会跳出一个错误的窗口，不要管它，关闭后直接F4即可。
2.如果不调试后，要把/Install换成/UnInstall，卸载服务，然后把Parameters参数清空。反正只要提示大概意思是“服务已经存在”或者“服务不存在”，就要看Parameters的参数值。
3.再次调试/Install的时候，要把刚刚打开的服务管理器窗口关闭，不然会提示大概意思是“服务已经被禁止”。
“七”乐无穷，尽在新浪新版博客，快来体验啊~~~请点击进入~
