怎样写服务(200分)

J

jiangzhang3942

Unregistered / Unconfirmed
GUEST, unregistred user!
我想把一个exe程序写到服务中去,这样就可以自动启动了,进程中也没有这个exe,请问各位老大怎么做
 
S

szhcracker

Unregistered / Unconfirmed
GUEST, unregistred user!
网上搜搜一大把。另:如果要求不高,可以用系统的“任务计划”来处理。
祝你好运。
 
H

hfghfghfg

Unregistered / Unconfirmed
GUEST, unregistred user!
你可以参考 /Program Files/Borland/Delphi7/Source/Vcl/ScktSrvr.dpr
 
H

hhjjhhjj

Unregistered / Unconfirmed
GUEST, unregistred user!
服务程序在进程管理器也是看得到的。
 
J

jiangzhang3942

Unregistered / Unconfirmed
GUEST, unregistred user!
一双击exe就加入到windows服务中去了,并且自启动
 
J

jiangzhang3942

Unregistered / Unconfirmed
GUEST, unregistred user!
行数太多,看不懂
 

枝上柳绵

Unregistered / Unconfirmed
GUEST, unregistred user!
我用了一个最简单的方法实现这样的功能
做一个服务,专门启动一个*.bat文件
而在bat里面实现要启动的程序,非常方便(任意添加删除所启动的程序)而且实现也很简单
与你说的
"一双击exe就加入到windows服务中去了,并且自启动 "有相同效果
新建->服务,在代码里实现
procedure TcreateProcessByServ.ServiceStart(Sender: TService;
var Started: Boolean);
var
BatchFile: TextFile;
BatchFileName: string;
ProcessInfo: TProcessInformation;
StartUpInfo: TStartupInfo;
begin
Started := True;
BatchFileName := ExtractFilePath(ParamStr(0)) + 'a.bat';
//WinExec(PChar(BatchFileName),1);
FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
StartUpInfo.wShowWindow := SW_SHOWNORMAL;

CreateProcess(nil, PChar(BatchFileName), nil, nil,
False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,
ProcessInfo);

end;
 
C

chbqq

Unregistered / Unconfirmed
GUEST, unregistred user!
工程->new->other->选services application
 
Top Bottom