请问如何将程序加到WIN的服务里面？

Question

请问如何将程序加到WIN的服务里面？

Answer 1

服务器程序不是加的,首先你的程序要是Service

Answer 2

程序必须是service,而不是普通的程序。
然后在命令行中输入
MyService /install
就可以了。（MyService是你的service程序名）
在管理工具－－服务中可以发现你的服务已经安装。

Answer 3

例子使用一个TserverSocket，端口设为80，这个例子将在c:\temp目录下产生一个文本文件，名字为WebLogxxx.log(xxx是线程IDThreadID)。看运行结果：启动程序，打开一个Web浏览器，键入localhost，等待浏览器将超时，然后在c:\temp中将有一个Weblogxxx.log文件。interfaceuses
Windows,Messages,SysUtils,Classes,Graphics,Controls,SvcMgr,Dialogs,ScktComp;type
TService1 = class(TService)
ServerSocket1: TServerSocket;
procedure ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
procedure Service1Execute(Sender: TService);
private
{ Private declarations }
Stream: TMemoryStream;
public
function GetServiceController: PServiceController; override;
{ Public declarations }
end;var
Service1: TService1;implementation{$R *.DFM}procedure ServiceController(CtrlCode: DWord); stdcall;
begin
Service1.Controller(CtrlCode);
end;
function TService1.GetServiceController: PServiceController;
begin
Result := @ServiceController;
end;procedure TService1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
Buffer: PChar;
begin
Buffer := nil;
while Socket.ReceiveLength > 0 do begin
try
Buffer := AllocMem(Socket.ReceiveLength);
Socket.ReceiveBuf(Buffer^Socket.ReceiveLength);
Stream.Write(Buffer^StrLen(Buffer));
finally
FreeMem(Buffer);
end;
Stream.Seek(0,soFromBeginning);
Stream.SaveToFile('c:\Temp\Weblog' + IntToStr(ServiceThread.ThreadID) + '.log');
end;
end;
procedure TService1.Service1Execute(Sender: TService);
begin
Stream := TMemoryStream.Create;
try
ServerSocket1.Port := 80; // WWW port
ServerSocket1.Active := True;
while not Terminated do begin
ServiceThread.ProcessRequests(False);
end;
ServerSocket1.Active := False;
finally
Stream.Free;
end;
end;end.

Answer 4

请问各位大吓，我做了一个服务，服务运行起来了，但我想运行的同时能在Windows状态栏的右下方有服务运行的图标出现，并且双击图标能把其界面打开。

Answer 5

请问各位大吓，我做了一个服务，服务运行起来了，但我想运行的同时能在Windows状态栏的右下方有服务运行的图标出现，并且双击图标能把其界面打开。哈哈我刚解决，EMail给我 [email protected]