Para iniciar un servicio tienes que usar algo como esto:
Código Delphi
[-]
uses WinSvc;
function InicarServicio(Nombre: String): boolean;
var
Scm: SC_HANDLE;
Srv: SC_HANDLE;
Arg: PAnsiChar;
begin
Result:= FALSE;
Scm:= OpenSCManager(nil,nil,GENERIC_EXECUTE or GENERIC_READ);
if Scm > 0 then
begin
Srv:= OpenService(Scm, PChar(Nombre), GENERIC_EXECUTE or GENERIC_READ);
if Srv > 0 then
begin
Arg:= nil;
Result:= StartService(srv,0,arg);
CloseServiceHandle(Srv);
end;
CloseServiceHandle(Scm);
end;
end;
InicarServicio('Apache2');