[es] - Restartovanje servisa

krle_zr

Član broj: 96307
Poruke: 258
*.static.zrlocal.net.

+7 Profil

^{03.02.2010. u 09:46 - pre 173 meseci}

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

Odgovor na temu

savkic
Igor Savkić

Moderator
Član broj: 92186
Poruke: 2739

+92 Profil

Re: Restartovanje servisa

^{03.02.2010. u 14:19 - pre 173 meseci}

> 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;

Do not be a help vampire (http://slash7.com/pages/vampires), use the google.

How to ask questions the smart way:
http://www.catb.org/~esr/faqs/smart-questions.html
http://solair.eunet.rs/~fangor...stions/smart-questions.sr.html

Odgovor na temu