Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.03.20;
Скачать: CL | DM;

Вниз

EnumServicesStatus   Найти похожие ветки 

 
MetalFan ©   (2005-02-08 12:26) [0]

как пользоваться 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) [1]

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


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

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



Страницы: 1 вся ветка

Текущий архив: 2005.03.20;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.04 c
1-1109880616
MORA
2005-03-03 23:10
2005.03.20
Как запустить таймер в потоке?


4-1107811582
Ipkis
2005-02-08 00:26
2005.03.20
как узнать когда же Юзер щелкнул по кнопке на ХТМЛ-страничке


3-1108901910
UVV
2005-02-20 15:18
2005.03.20
Наверное старый вопрос, но как организовать, ...


3-1108621977
Evyshka
2005-02-17 09:32
2005.03.20
Нарастающий итог


14-1109604649
AG.Smit
2005-02-28 18:30
2005.03.20
Проблема с мобилой Sony Ericsson T610