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