Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Привет всем!
Мой вопрос касается функции QueryServiceStatusEx в Delphi нужна альтернатива ей, поскольку в модуле WinSvc.Pas она отсутствует, несмотря на то что на различных сайтах утверждают что она там есть.
Лично я в своей 7 версии эту функцию не обнаружил.

Вопрос задал: SOA (статус: Посетитель) Вопрос отправлен: 9 июня 2010, 21:05 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Паровоз

Здравствуйте, SOA!

type
  SC_HANDLE = Cardinal;
  SC_STATUS_TYPE=(SC_STATUS_PROCESS_INFO);
  SERVICE_STATUS_PROCESS = record
    dwServiceType: DWORD;
    dwCurrentState: DWORD;
    dwControlsAccepted: DWORD;
    dwWin32ExitCode: DWORD;
    dwServiceSpecificExitCode: DWORD;
    dwCheckPoint: DWORD;
    dwWaitHint: DWORD;
    dwProcessId: DWORD;
    dwServiceFlags: DWORD;
  end;
 
function QueryServiceStatusEx(hService: SC_HANDLE; InfoLevel: SC_STATUS_TYPE;
  lpBuffer: pointer; cbBufSize: DWORD; var pcbBytesNeeded: DWORD): BOOL; stdcall;
  external advapi32 name 'QueryServiceStatusEx';

Ответ отправил: Паровоз (статус: 10-ый класс) Время отправки: 9 июня 2010, 22:16 Оценка за ответ: 5

Мини-форум вопроса

Amidamaru (статус: 4-ый класс), 9 июня 2010, 22:05 [#1]: видимо в варианте делфи её нету. вот цитата из хелпа по бдс2006: Цитата: Requirements Client: Included in Windows XP and Windows 2000 Professional. Server: Included in Windows Server 2003 and Windows 2000 Server. Header: Declared in Winsvc.h; include Windows.h. Library: Use Advapi32.lib. PS у меня в модуле WinSvc тоже нету такой функции. Есть только QueryServiceStatus. Приглашаю Вас на наш IRC-канал: #delphiintru в сети DalNet.

SOA (статус: Посетитель), 10 июня 2010, 08:19 [#2]: Про QuaeryServiceStatus я знаю и даже хотел ее использовать как альтернативу, но когда увидел что в ней вместо 7 параметров только 5 то передумал. Я так думаю что в Delphi нехватает не только этой функции, ну ничего зато освою вызов API функций из dll, тоже пригодится.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.