启动windows的服务--《用delphi开发共享软件》-15.2桌面提示器

在dos 下用命令启动一个服务：NET START "Windows Desktop Reminder"

一下为用delphi启动服务：

Function RunProcess(sApp,sPara:String):Boolean;
begin
ZeroMemory(@sStartInfo, sizeof(sStartInfo));
SStartInfo.cb := sizeof(sStartInfo);
begin
SStartInfo.dwX:=0;
SStartInfo.dwY :=0;
SStartInfo.dwXSize:=0;
SStartInfo.dwYSize:=0;
SStartInfo.wShowWindow:=SW_HIDE;
SStartInfo.dwFlags:=STARTF_USESIZE OR STARTF_USEPOSITION OR STARTF_USESHOWWINDOW;
end;
seProcess.nLength := sizeof(seProcess);
seProcess.lpSecurityDescriptor := PChar(nil);
seProcess.bInheritHandle := true;
seThread.nLength := sizeof(seThread);
seThread.lpSecurityDescriptor := PChar(nil);
seThread.bInheritHandle := true;
Result:= CreateProcess(PChar(nil), PChar(sAPP+' '+sPara), @seProcess, @seThread,
false, CREATE_DEFAULT_ERROR_MODE,
Pchar(nil), Pchar(nil), sStartInfo, PProcInfo);
end;　

 procedure RunService(sService:String);
 begin
   RunProcess('Net.exe','Start "'+sService+'"'); // "Windows 2K/XP 登录桌面提示"');
 end;

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   width:=;
   height:=;
   RunService('Windows Desktop Reminder');
   Application.Terminate;
 end;

调用代码

 unit uStartFrm;

 interface

 uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs;

 type
   TForm1 = class(TForm)
     procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

 Function RunProcess(sApp,sPara:String):Boolean;
 procedure RunService(sService:String);

 var
   sStartInfo: STARTUPINFO;
   seProcess, seThread: SECURITY_ATTRIBUTES;
   PProcInfo: PROCESS_INFORMATION;

 var
   Form1: TForm1;

 implementation

 {$R *.dfm}

 Function RunProcess(sApp,sPara:String):Boolean;
 begin
   ZeroMemory(@sStartInfo, sizeof(sStartInfo));
   SStartInfo.cb := sizeof(sStartInfo);
     begin
       SStartInfo.dwX:=;
       SStartInfo.dwY :=;
       SStartInfo.dwXSize:=;
       SStartInfo.dwYSize:=;
       SStartInfo.wShowWindow:=SW_HIDE;
       SStartInfo.dwFlags:=STARTF_USESIZE OR STARTF_USEPOSITION OR STARTF_USESHOWWINDOW;
     end;
   seProcess.nLength := sizeof(seProcess);
   seProcess.lpSecurityDescriptor := PChar(nil);
   seProcess.bInheritHandle := true;
   seThread.nLength := sizeof(seThread);
   seThread.lpSecurityDescriptor := PChar(nil);
   seThread.bInheritHandle := true;
   Result:= CreateProcess(PChar(nil), PChar(sAPP+' '+sPara), @seProcess, @seThread,
                             false, CREATE_DEFAULT_ERROR_MODE,
                             Pchar(nil), Pchar(nil), sStartInfo, PProcInfo);
 end;

 procedure RunService(sService:String);
 begin
   RunProcess('Net.exe','Start "'+sService+'"'); // "Windows 2K/XP 登录桌面提示"');
 end;

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   width:=;
   height:=;
   RunService('Windows Desktop Reminder');
   Application.Terminate;
 end;

 end.

全部代码