启动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
  =0;
  height:=0;
  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:=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
  =0;
  height:=0;
  RunService('Windows Desktop Reminder');
  Application.Terminate;
end;

end.