继 careychen 大的 自動安裝、自動執行的 Service (含 D7 和 D2007 的 Source Code ) 后的研究....

在此感谢careychen大的总结.

下面是对Service的一些研究,使普通exe项目和Serivce并用的方法.


[code delphi]
program ServiceExe;
uses
Forms,
SvcMgr,
RdServiceMainUnit in 'RdServiceMainUnit.pas' {ServiceExe: TService},
RdFormMainUnit in 'RdFormMainUnit.pas' {frmServiceExe};
{$R *.RES}
begin
if ParamCount <> 0 then
begin
SvcMgr.Application.Initialize;
SvcMgr.Application.CreateForm(TServiceExe, ServiceExe);
SvcMgr.Application.Run;
end
else
begin
Forms.Application.Initialize;
Forms.Application.CreateForm(TfrmServiceExe, frmServiceExe);
Forms.Application.Run;
end;
end.
[/code]

关键是让2个Application并存.根据启动方式来选择.

关于Service的研究还在继续,欢迎各位大大探讨.

------
要学的东西太多~

編輯記錄

棒~~~!，過一陣子較有空時會一起跟您研究研究~~，感恩~~~!

===================引 用 jbmaster 文 章===================
继 careychen 大的 自動安裝、自動執行的 Service (含 D7 和 D2007 的 Source Code ) 后的研究....

在此感谢careychen大的总结.

下面是对Service的一些研究,使普通exe项目和Serivce并用的方法.


[code delphi]
program ServiceExe;
uses
Forms,
SvcMgr,
RdServiceMainUnit in 'RdServiceMainUnit.pas' {ServiceExe: TService},
RdFormMainUnit in 'RdFormMainUnit.pas' {frmServiceExe};
{$R *.RES}
begin
if ParamCount <> 0 then
begin
SvcMgr.Application.Initialize;
SvcMgr.Application.CreateForm(TServiceExe, ServiceExe);
SvcMgr.Application.Run;
end
else
begin
Forms.Application.Initialize;
Forms.Application.CreateForm(TfrmServiceExe, frmServiceExe);
Forms.Application.Run;
end;
end.
[/code]

关键是让2个Application并存.根据启动方式来选择.

关于Service的研究还在继续,欢迎各位大大探讨.

------
價值的展現，來自於你用哪一個角度來看待它!!

如果不是掛在 Windows service 下，就不能算是真正的 service 喔！

===================引 用 jbmaster 文 章===================
继 careychen 大的 自動安裝、自動執行的 Service (含 D7 和 D2007 的 Source Code ) 后的研究....

在此感谢careychen大的总结.

下面是对Service的一些研究,使普通exe项目和Serivce并用的方法.


[code delphi]
program ServiceExe;
uses
Forms,
SvcMgr,
RdServiceMainUnit in 'RdServiceMainUnit.pas' {ServiceExe: TService},
RdFormMainUnit in 'RdFormMainUnit.pas' {frmServiceExe};
{$R *.RES}
begin
if ParamCount <> 0 then
begin
SvcMgr.Application.Initialize;
SvcMgr.Application.CreateForm(TServiceExe, ServiceExe);
SvcMgr.Application.Run;
end
else
begin
Forms.Application.Initialize;
Forms.Application.CreateForm(TfrmServiceExe, frmServiceExe);
Forms.Application.Run;
end;
end.
[/code]

关键是让2个Application并存.根据启动方式来选择.

关于Service的研究还在继续,欢迎各位大大探讨.

拜讀一下 

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

borland 自带的例子中就有一个啦。
C:\Program Files\Borland\Delphi7\Source\VclScktSrvr.dpr
{ }
{ Copyright (c) 1997,99 Inprise Corporation }
{ }
{*******************************************************}
program ScktSrvr;
uses
SvcMgr, Forms, Windows, SysUtils, WinSvc, ScktCnst,
ScktMain in 'ScktMain.pas' {SocketForm};
{$R *.RES}
function Installing: Boolean;
begin
Result := FindCmdLineSwitch('INSTALL',['-','\','/'], True) or
FindCmdLineSwitch('UNINSTALL',['-','\','/'], True);
end;
function StartService: Boolean;
var
Mgr, Svc: Integer;
UserName, ServiceStartName: string;
Config: Pointer;
Size: DWord;
begin
Result := False;
Mgr := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);
if Mgr <> 0 then
begin
Svc := OpenService(Mgr, PChar(SServiceName), SERVICE_ALL_ACCESS);
Result := Svc <> 0;
if Result then
begin
QueryServiceConfig(Svc, nil, 0, Size);
Config := AllocMem(Size);
try
QueryServiceConfig(Svc, Config, Size, Size);
ServiceStartName := PQueryServiceConfig(Config)^.lpServiceStartName;
if CompareText(ServiceStartName, 'LocalSystem') = 0 then
ServiceStartName := 'SYSTEM';
finally
Dispose(Config);
end;
CloseServiceHandle(Svc);
end;
CloseServiceHandle(Mgr);
end;
if Result then
begin
Size := 256;
SetLength(UserName, Size);
GetUserName(PChar(UserName), Size);
SetLength(UserName, StrLen(PChar(UserName)));
Result := CompareText(UserName, ServiceStartName) = 0;
end;
end;
begin
if not Installing then
begin
CreateMutex(nil, True, 'SCKTSRVR');
if GetLastError = ERROR_ALREADY_EXISTS then
begin
MessageBox(0, PChar(SAlreadyRunning), SApplicationName, MB_ICONERROR);
Halt;
end;
end;
if Installing or StartService then
begin
SvcMgr.Application.Initialize;
SocketService := TSocketService.CreateNew(SvcMgr.Application, 0);
SvcMgr.Application.CreateForm(TSocketForm, SocketForm);
SvcMgr.Application.Run;
end else
begin
Forms.Application.ShowMainForm := False;
Forms.Application.Initialize;
Forms.Application.CreateForm(TSocketForm, SocketForm);
SocketForm.Initialize(False);
Forms.Application.Run;
end;
end.