Как управлять сервисом на другом компьютере в W2K?
Как управлять сервисом на другом компьютере в W2K?
Как управлять сервисом на другом компьютере в W2K? uses windows, messages, sysutils, stdctrls, svcmgr; var ssstatus:tservicestatus; schscmanager, schservice:sc_handle ; begin schscmanager := openscmanager( pchar('comp1'), //имя компьютера, nil - local machine nil, // servicesactive database sc_manager_all_access); // full access rights if schscmanager = 0 then exit; //Ошибка? schservice := openservice( schscmanager, // scm database pchar('sqlserveragent'), // посмотри имя в services. В данном случае - ms server agent service_all_access); if schservice = 0 then exit; //Ошибка? if not queryservicestatus( schservice, // handle to service ssstatus) then // address of status information structure exit; //Ошибка? case ssstatus.dwcurrentstate of: service_running: showmessage('Работает!'); service_stopped: showmessage('Выключен'); // ну и т.д. end; end;
