如何把一个应用程序添加到服务中

Question

如何把一个应用程序添加到服务中
添加到开始/程序中

Answer 1

如何把一个应用程序添加到服务中 //创建Service Application
添加到开始/程序中 //创建快捷方式

Answer 2

第一个。Delphi File-->New-->Other...-->New(页面）的Service Application
第二个。打包程序中都有的

Answer 3

在程序中可以这样生成快捷方式uses ShlObj, ComObj, ActiveX
procedure TForm1.Button1Click(Sender: TObject);
var
   MyObject : IUnknown;
   MySLink : IShellLink;
   MyPFile : IPersistFile;
   WFileName : WideString;
begin
  WFileName := 'c:\a.lnk'; //快捷方式的路径
  MyObject := CreateComObject(CLSID_ShellLink);
  MySLink := MyObject as IShellLink;
  MyPFile := MyObject as IPersistFile;
  MySLink.SetDescription('描述'); //描述
  MySLink.SetArguments('/n'); //参数
  MySLink.SetWorkingDirectory('c:\'); //起始位置
  MySLink.SetPath(PAnSiChar(Application.ExeName)); //目标
  MyPFile.save(PWChar(WFileName), false);
end;