Win2000后台服务程序中创建线程的问题，急！

Question

我创建了一个后台服务程序Service Application，然后我在这个服务程序中创建一个线程，我是在OnStart事件中创建线程的，可是为什么线程不执行呢，高手请帮看看，以下为我的代码：//服务程序代码procedure TSystemFileJK.ServiceStart(Sender: TService;
  var Started: Boolean);
begin
  pProcessThread := TProcessJKThread.Create(False);
  Started := True;
end;procedure TSystemFileJK.ServiceStop(Sender: TService;
  var Stopped: Boolean);
begin
  pProcessThread.Terminate();
  Stopped := True;
end;procedure TSystemFileJK.ServicePause(Sender: TService;
  var Paused: Boolean);
begin
  pProcessThread.Suspend();
  Paused := True;
end;procedure TSystemFileJK.ServiceContinue(Sender: TService;
  var Continued: Boolean);
begin
  pProcessThread.Resume();
  Continued := True;
end;//线程代码procedure TProcessJKThread.Execute;
begin
  { Place thread code here }
  while(True)do
  begin
    ShellExecute(Handle, 'open', 'E:\Work\Exe\SystemFileService.exe', nil, nil, SW_SHOW);
    Sleep(5000);
  end;
end;安装服务是成功了，可以在“管理工具”的“服务”里看到我的服务程序了，但是我启动他的时候为什么我的线程不执行呢，我是在OnStrat事件中创建线程了的啊？？？

Answer 1

要设置你的服务的属性为：
Interactive 为 true