[frkbvfnjh]

Всем привет! Мучаюсь уже не первый день. Никак не могу найти в сети пример использования функции QueryServiceLockStatus на Delphi. Вроде как есть примеры на C++, в этом языке я вообще 0, но как мне кажется параметры этой функции там объявлены иначе. Причем прецедент уже был со стороны Delphi - в этом же модуле функция EnumServicesStatus так же была объявлена с ошибкой и в новых версиях Delphi ее исправили, видимо и с этой тоже самое. Я попытался написать обёртку для этой функции:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56

function IsLockServiceDatabase(   out ErrCode: Integer;   out LockOwner: string;   out LockDuration: Cardinal ): Boolean; var   hSCManager: SC_HANDLE;   BufSize, BytesNeeded: DWORD;   //Buffer: PByte;   LockStatus: QUERY_SERVICE_LOCK_STATUS; begin   Result := False;   ErrCode := ERROR_SUCCESS;   LockOwner := '';   LockDuration := 0;     hSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);   if hSCManager > 0 then   try     BufSize := 0;     BytesNeeded := 0;       if not QueryServiceLockStatus(       hSCManager,       LockStatus,       BufSize,       BytesNeeded     ) and (GetLastError() = ERROR_INSUFFICIENT_BUFFER) then     begin       BufSize := BytesNeeded;       //GetMem(Buffer, BytesNeeded);       try         if QueryServiceLockStatus(           hSCManager,           LockStatus,           BufSize,           BytesNeeded         ) then         begin           Result := not (LockStatus.fIsLocked = 0);           if Result then           begin             LockOwner := LockStatus.lpLockOwner;             LockDuration := LockStatus.dwLockDuration;           end;         end else           ErrCode := GetLastError();       finally         //FreeMem(Buffer);       end;     end;   finally     CloseServiceHandle(hSCManager);   end else     ErrCode := GetLastError(); end;

но когда я вызываю QueryServiceLockStatus второй раз то меняется значение в переменной BufSize, видимо где-то затирается память. Кроме того теряется весь смысл получения размера для буфера данных, ведь в Delphi 2-ой параметр в этой функции не объявлен как указатель, в С++ это как раз указатель на буффер в памяти. Я попытался переопределить описание функции:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

function QueryServiceLockStatus(hSCManager: SC_HANDLE;   var lpLockStatus: PByte; cbBufSize: DWORD;   pcbBytesNeeded: PDWORD): BOOL; stdcall;   function QueryServiceLockStatus; external advapi32 name 'QueryServiceLockStatusW';   function IsLockServiceDatabase(   out ErrCode: Integer;   out LockOwner: string;   out LockDuration: Cardinal ): Boolean; var   hSCManager: SC_HANDLE;   BufSize, BytesNeeded: DWORD;   Buffer: PByte;   lpLockStatus: LPQUERY_SERVICE_LOCK_STATUSW; //QUERY_SERVICE_LOCK_STATUS; begin   Result := False;   ErrCode := ERROR_SUCCESS;   LockOwner := '';   LockDuration := 0;     hSCManager := OpenSCManager(nil, nil, SC_MANAGER_ALL_ACCESS);   if hSCManager > 0 then   try     BufSize := 0;     BytesNeeded := 0;       if not QueryServiceLockStatus(       hSCManager,       Buffer, //lpLockStatus,       BufSize,       @BytesNeeded     ) and (GetLastError() = ERROR_INSUFFICIENT_BUFFER) then     begin       BufSize := BytesNeeded;       GetMem(Buffer, BytesNeeded);       try         if QueryServiceLockStatus(           hSCManager,           Buffer, //lpLockStatus,           BufSize,           @BytesNeeded         ) then         begin           Result := not (LPQUERY_SERVICE_LOCK_STATUSW(Buffer)^.fIsLocked = 0);           if Result then           begin             LockOwner := LPQUERY_SERVICE_LOCK_STATUSW(Buffer)^.lpLockOwner;             LockDuration := LPQUERY_SERVICE_LOCK_STATUSW(Buffer)^.dwLockDuration;           end;         end else           ErrCode := GetLastError();       finally         FreeMem(Buffer);       end;     end;   finally     CloseServiceHandle(hSCManager);   end else     ErrCode := GetLastError(); end;

Все компилится, по при выполнении падает в виолейшин.

Может кто нибудь привести объяснить и привести пример кода, как правильно работать с этим зверем? Код пишу в Delphi 10.4, одна из последних версий. Ооооочень нужна помощь. Заранее спасибо!

[lmikle]

1. lpLockStatus - это поинтер на структуру
3. cbBufSize - размер памяти переданный через lpLockStatus
2. pcbBytesNeeded - тоже поинтер, на DWORD
Оба параметра, если правильно помню, передавать как var параметры

Т.е. сигнатура будет примерно такой:

Код:

1 2 3

function QueryServiceLockStatus(hSCManager: SC_HANDLE;   var lpLockStatus: QUERY_SERVICE_LOCK_STATUS; cbBufSize: DWORD;   var pcbBytesNeeded: DWORD): BOOL;

Попробуй так (в cbBufSize передавать SizeOf(QUERY_SERVICE_LOCK_STATUS))

Если все сработает для одного статуса, то тогда можно будет дальше эксперементировать с тем, что бы получать несколько статусов.