delphi 服务和普通程序能做成一个EXE吗？

Question

同一个EXE可以注册到服务，又可以和正常EXE一样运行，我看别人的程序可以。
DELPHI能实现 吗？

Answer 1

TService和普通应用程序，可否做成一个EXE。就是那个需要 /install的 
启动需要net start Service1的东西和普通应用程序，都是EXE，但是服务程序点击无法运行

Answer 2

Delphi 自带的一个程序scktsrvr.exe就是这样子的，在低版本的Delphi当中可以找到完整的源代码。或者网上搜索scktsrvr.dpr

Answer 3

直接度娘 delphi 两栖

Answer 4

在服务程序的dpr代码中这样处理：
var
  svcTbl: SERVICE_TABLE_ENTRYA;
begin
   if(命令行参数包含‘-asexe’) then
  begin
      //做普通exe做的事情
     ...
  end
  else begin
    //一个正常的服务程序该做的事情
     svcTbl.lpServiceName := C_SVC_NAME;  
    svcTbl.lpServiceProc := @SvcMain;  
    StartServiceCtrlDispatcherA(@svcTbl);
  end;
end.