200分，有关服务程序Service的问题。(200分)

我想写一个Service孕育，通过nt自动启动时运行。然后将UI控制的部分写在另一个程序里。
通过UI来控制Service程序的运行状态，最好是通过nt/2000的管理工具就可以访问，如在
“我的电脑”点右键选择管理，可以配置IIS的许多参数，控制IIS的状态。
请大侠提供思路或demo

你看一下，createservice,Openservice,StartService等几个Api函数

createservice,Openservice,StartService是对服务进行控制的api，可能你没有理解我的意思，
我是想通过界面与Service进行交互。现在我想到了通过注册表进行简单的数据交互，但如果要
传递更复杂的数据，不通过注册表有没有办法。

用下面的控件可以解决：

unit CNTServiceCtrl;

interface

uses
WinSvc, Windows, classes, Dialogs;

type
TCNTServiceCtrlStatusEvent = procedure (Sender: TObject; const Status: String) of object;
TCNTServiceCtrlErrorEvent = procedure (Sender: TObject; const ErrCode: DWORD; const Description: String) of object;

TCNTServiceCtrl = class(TComponent)
private
schm, schs: SC_Handle;
ss: TServiceStatus;
FActive: Boolean;
FOnError: TCNTServiceCtrlErrorEvent;
FOnStatus: TCNTServiceCtrlStatusEvent;
FService: String;
FMachine: String;
function ServiceStopped : boolean;
function ServiceRunning : boolean;
function GetServiceActive : boolean;
procedure SetActive(const Value: Boolean);
procedure SetMachine(const Value: String);
procedure SetService(const Value: String);
procedure ShowStatus(const Value: String);
procedure ShowError(const aErrCode: DWORD; const Value: String);
function GetErrorMessage (code : Integer) : string;
procedure SetServiceActive(const Value: Boolean);
public
constructor Create(Owner: TComponent); override;
destructor Destroy; override;
function Start: boolean;
function Stop : boolean;
function Restart: boolean;
function ServiceGetStatus : Longint;
published
property Machine: String read FMachine write SetMachine;
property Service: String read FService write SetService;
property Active: Boolean read FActive write SetActive default False;
property ServiceActive: Boolean read GetServiceActive write SetServiceActive default False;
property OnStatus: TCNTServiceCtrlStatusEvent read FOnStatus write FOnStatus;
property OnError: TCNTServiceCtrlErrorEvent read FOnError write FOnError;
end;

procedure Register;

implementation

function TCNTServiceCtrl.Start: boolean;
var
psTemp : PChar;
ErrCode: DWORD;
MaxCount, Count: Integer;
begin
If FActive then begin
ShowStatus('Attempt to start service ' + FService + ' on ' + FMachine);

if(StartService(schs, 0, psTemp))then begin
ServiceGetStatus;
if ss.dwWaitHint > 1000 then
MaxCount := round(ss.dwWaitHint / 100.0)
else
MaxCount := 30;

Count := 0;
while (not ServiceRunning) and (Count < MaxCount) do begin
Sleep(1000);
Inc(Count);
if ServiceGetStatus = -1 then break;
end;
end
else begin
ErrCode := GetLastError;
ShowError(ErrCode, 'StartService() ' + GetErrorMessage(ErrCode));
end;
end
else begin
ShowError(0, 'Start() Service Control Object not activated');
end;

Result := SERVICE_RUNNING = ss.dwCurrentState;
if not Result then ShowError(0, 'Service Start Failed');
end;

function TCNTServiceCtrl.Stop : boolean;
var
maxCount, Count : Integer;
begin
if FActive then begin
ShowStatus('Attempt to stop service ' + FService + ' on ' + FMachine);

if(ControlService(schs, SERVICE_CONTROL_STOP, ss))then begin
if ss.dwWaitHint > 1000 then
MaxCount := round(ss.dwWaitHint / 100.0)
else
MaxCount := 30;

Count := 0;
while (not ServiceStopped) and (Count < MaxCount) do begin
Sleep(1000);
Inc(Count);
if ServiceGetStatus = -1 then break;
end;
end;
end
else begin
ShowError(0, 'Stop() Service Control Object not activated');
end;

Result := SERVICE_STOPPED = ss.dwCurrentState;
if not Result then ShowError(0, 'Service Stop Failed');
end;

function TCNTServiceCtrl.ServiceGetStatus : longint;
var
dwStat : Longint;
ErrCode: DWORD;
begin
dwStat := -1;

if FActive then begin
if(QueryServiceStatus(schs, ss))then begin
dwStat := ss.dwCurrentState;
end
else begin
ErrCode := GetLastError;
ShowError(ErrCode, 'QueryServiceStatus() ' + GetErrorMessage(ErrCode));
end;
end
else begin
ShowError(0, 'ServiceGetStatus() Service Control Object not activated');
end;

case dwStat of
SERVICE_STOPPED: ShowStatus('Service Stopped');
SERVICE_START_PENDING: ShowStatus('Service Start Pending');
SERVICE_STOP_PENDING: ShowStatus('Service Stop Pending');
SERVICE_RUNNING: ShowStatus('Service Running');
SERVICE_CONTINUE_PENDING: ShowStatus('Service Coutinue Pending');
SERVICE_PAUSE_PENDING: ShowStatus('Service Pause Pending');
SERVICE_PAUSED: ShowStatus('Service Paused');
end;

Result := dwStat;
end;

function TCNTServiceCtrl.Restart: boolean;
begin
Result := False;

if ServiceRunning then begin
if Stop then begin
if Start then Result := True;
end;
end
else begin
ShowError(0, 'Service Not Started');
end;

if not Result then ShowError(0, 'Restart Service Fail');
end;

function TCNTServiceCtrl.ServiceRunning : boolean;
begin
Result := (SERVICE_RUNNING = ServiceGetStatus);
end;

function TCNTServiceCtrl.ServiceStopped : boolean;
begin
Result := (SERVICE_STOPPED = ServiceGetStatus);
end;

procedure TCNTServiceCtrl.SetActive(const Value: Boolean);
var
ErrCode: DWORD;
begin
if (Value and not FActive) then begin
schm := OpenSCManager(PChar(FMachine), Nil, SC_MANAGER_CONNECT);
if(schm > 0)then begin
ShowStatus('Connected to Service Control Manager');
schs := OpenService(schm, PChar(FService), SERVICE_ALL_ACCESS);
if(schs > 0)then begin
ShowStatus('Service ' + FService + ' in control');
FActive := True;
end
else begin
ErrCode := GetLastError;
ShowError(ErrCode, 'OpenService() ' + GetErrorMessage(ErrCode));
end;
end
else begin
ErrCode := GetLastError;
ShowError(ErrCode, 'OpenSCManager() ' + GetErrorMessage(ErrCode));
end;
end
else if (not Value and FActive) then begin
CloseServiceHandle(schs);
CloseServiceHandle(schm);
FActive := False;
end;
end;

constructor TCNTServiceCtrl.Create(Owner: TComponent);
begin
inherited Create(Owner);

FMachine := '//';
FService := '';
end;

destructor TCNTServiceCtrl.Destroy;
begin
SetActive(False);
inherited Destroy;
end;

procedure TCNTServiceCtrl.SetMachine(const Value: String);
begin
if Value <> FMachine then SetActive(False);

FMachine := Value;
ShowStatus('Machine = ' + FMachine);
end;

procedure TCNTServiceCtrl.SetService(const Value: String);
begin
if Value <> FService then SetActive(False);

FService := Value;
ShowStatus('Service = ' + FService);
end;

procedure TCNTServiceCtrl.ShowStatus(const Value: String);
begin
if Assigned(FOnStatus) then FOnStatus(Self, Value);
end;

procedure TCNTServiceCtrl.ShowError(const aErrCode: DWORD; const Value: String);
begin
if Assigned(FOnError) then FOnError(Self, aErrCode, 'ERROR: ' + Value)
else MessageDlg(Value, mtError, [mbOK], 0);
end;

procedure TCNTServiceCtrl.SetServiceActive(const Value: Boolean);
begin
if Value then Start
else Stop;
end;

function TCNTServiceCtrl.GetServiceActive: boolean;
begin
if FActive then
Result := ServiceRunning
else
Result := False;
end;

function TCNTServiceCtrl.GetErrorMessage(code : Integer) : string;
var
hErrLib : THandle;
msg : PChar;
flags : Integer;
begin
hErrLib := LoadLibraryEx ('netmsg.dll', 0, LOAD_LIBRARY_AS_DATAFILE);

try
flags := FORMAT_MESSAGE_ALLOCATE_BUFFER or
FORMAT_MESSAGE_IGNORE_INSERTS or
FORMAT_MESSAGE_FROM_SYSTEM;

if hErrLib <> 0 then
flags := flags or FORMAT_MESSAGE_FROM_HMODULE;

if FormatMessage (flags, pointer (hErrLib), code,
(SUBLANG_DEFAULT shl 10) or LANG_NEUTRAL,
@msg, 0, Nil) <> 0 then
try
result := msg;

finally
LocalFree (Integer (msg));
end

finally
if hErrLib <> 0 then
FreeLibrary (hErrLib)
end
end;

procedure Register;
begin
RegisterComponents('System', [TCNTServiceCtrl]);
end;

end.

谢谢大家捧场，我要处理的是应该是一个多进程之间通信的一个问题。就是后台的服务，如何与前台
的界面进行通信。

你要做的工作大概有以下几个部份：
1、将一些重要的对象等东西做成COM
2、做一个Service,Service通过COM来做事情
3、实现WMI Provider, 并为WM控制台写一个程序(大概用VBS,目的是使用管理控制台与WMI接口)

WMI Provider中，当信息被修改后,发消息给Service,Service得到消息后,重新载入设置
我目前正在做的一个软件有点类似，不过没有使用管理控制台,我觉得管理控制台部份实现起来太麻烦，我使用Web来设置参数。
进程间通信使用消息。当参数修改后，向Service发个消息就OK了。

进程间通信我看用系统消息就可以，也没有必要非得搞成COM。
关于服务确实是个很有趣的技术，可是不知道为什么我的问题总是没人捧场：
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1190250

程序间通信可以用OLE。
如果支持网络的话不妨考虑用TCP/UDP。