Как управлять сервисом на другом компьютере в W2K?
Материал из DRKB
Как управлять сервисом на другом компьютере в 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;
Source: Взято с сайта http://blackman.wp-club.net/
ID: 02231