服务可否启动一个可执行程序(50分)

我用delphi6做了一个简单的服务程序，但在服务启动时无法执行该可执行程序，请问谁能帮帮我？谢谢
procedure TMedRISServer.ServiceStart(Sender: TService;
var Started: Boolean);
begin
FileName:='D:/MEDRIS20/RISDMDLL/Schema/Project1.exe';
WinExec(Pchar(FileName),SW_SHOWNORMAL);
end;

李维的<系统篇>的3-44

李维的<系统篇>的3-44,我看过了。但当我安装或卸载是执行了上面的语句，并不是在服务启动时。