Restartovanje servisa

[ krle_zr @ 03.02.2010. 09:46 ] @

Interesuje me da li mogu da restartujem servis u Windows okruzenju, nesto slicno kao Batch komanda net stop "Ime servisa". Na Internetu sam pronasao kod za ovo, ali je veoma dugacak, pa me interesuje postoji li nesto krace?

Pozdrav

[ savkic @ 03.02.2010. 14:19 ] @

> Interesuje me da li mogu da restartujem servis u Windows okruzenju, nesto slicno kao Batch komanda net stop "Ime servisa". Na Internetu sam
> pronasao kod za ovo, ali je veoma dugacak, pa me interesuje postoji li nesto krace?

Ne znam gde ćeš kraće od dva reda, prvo net stop i posle net start. Ako hoćeš da izbegneš net komand line utility možeš koristiti SCManager, otprilike ovako:

Code:

var
  SvcMgr: SC_HANDLE;
  Svc: SC_HANDLE;
begin
   SvcMgr := OpenSCManager(nil, nil, GENERIC_EXECUTE);
   Svc := OpenService(SvcMgr, 'NazivServisa', GENERIC_EXECUTE);
   Result := StartService(Svc, 0, PChar(nil^));
   CloseServiceHandle(Svc);
   CloseServiceHandle(SvcMgr);
end;