| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

EnumServicesStatus [D5, Win2k, WinXP]

MetalFan ©   (2005-02-08 12:26:00) 

как пользоваться subj? сделал так, но что-то не работает:
function GetSystemServiceList(
 AList: TStringList): Boolean;
const
 SizeBuf = 4096;
var
 ServList: array[0..SizeBuf-1] of TEnumServiceStatus;
 Size,
 Needed,
 Return,
 Handle: Cardinal;
 i: Integer;
begin
 Result := Assigned(AList) and InitSCManager;
 if not Result then Exit;
 Size := SizeOf(ServList);
 Result := EnumServicesStatus( FSCManagerHandle,
                     SERVICE_WIN32,
                     SERVICE_ACTIVE,
                     ServList[0],
                     Size,
                     Needed,
                     Return,
                     Handle);
 if not Result then Exit;
 AList.Clear;
 for i := 0 to pred( Return ) do
   AList.Add( ServList[i].lpServiceName );
end;

соотв InitSCManager инициирует SCManager

---

Reindeer Moss Eater   (2005-02-08 12:30:00) [1]

GetLastError знает всю правду

---

MetalFan   (2005-02-08 12:30:00) [2]

sorry! сам рязобрался! надо было Needed, Return и Handle обнулить перед вызовом!
все, всем спасибо за внимание)

---

Наверх