请帮我看一下

Question

procedure TDelphiService.ServiceExecute(Sender: TService);
begin
  while not Terminated do
  begin
    Sleep(10000);
   
    ShellExecute(Handle,'open','net.exe','start Service1',nil,SW_HIDE);
    if not FrmMain.Showing then FrmMain.Show;
    ShellExecute(FindWindow(nil,PChar('FrmMain')),'open','C:\p1.exe', nil,nil,SW_SHOW);
    ServiceThread.ProcessRequests(False);  end;
end;我启动服务不成功，打开窗口不成功，启动程序也不成功！！！
怎么办？

Answer 1

没他人回答，分就全给你这个热心人了。