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

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

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

Подробнее »



Вопрос # 4 302

/ вопрос открыт /

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

SOA Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: 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


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

Всего сообщений: 2; последнее сообщение — 10 июня 2010, 08:19; участников в обсуждении: 2.
Amidamaru

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

SOA (статус: Посетитель), 10 июня 2010, 08:19 [#2]:

Про QuaeryServiceStatus я знаю и даже хотел ее использовать как альтернативу, но когда увидел что в ней вместо 7 параметров только 5 то передумал. Я так думаю что в Delphi нехватает не только этой функции, ну ничего зато освою вызов API функций из dll, тоже пригодится.

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

Версия движка: 2.6+ (26.01.2011)
Текущее время: 31 января 2023, 09:54
Выполнено за 0.02 сек.
Рейтинг@Mail.ru