操纵服务，要用到几个系统API，这几个API在DELPHI里的声明单元是："WinSvc.pas"

procedure TForm1.Button1Click(Sender: TObject);
var
SCHandle,SHandle:THandle;
B:Boolean;
P:Pchar;
SName:String;
begin
SName:='Service1'; //<----服务的名字。这个名字和服务的 DisplayName 不一定相同。在控制面板/服务/里显示的是DisplayName
SCHandle:=OpenSCManager(nil,nil,SC_MANAGER_CONNECT); //<---取Service Manager的Handle
SHandle:=OpenService(SCHandle,PChar(SName),SERVICE_ALL_ACCESS); //《----取到该服务的Handle
B:=StartService(SHandle,0,P); //<---启动这个服务。
end;

这里用到的函数都是API函数，看DELPHI的HELP里的WIN32 API部分。