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

Вниз

Как зарегистрировать и запустить/остановить службу?   Найти похожие ветки 

 
lexusU   (2005-01-02 16:04) [0]

следущая ситуация. Мне необходимо получить дамп CMOS памяти, с последующей записью в определеные регистры некого значения. Как всем известно в НТ системах прямое обращение к CMOS регистрам невозможно. Однако существует некий (довольно популярный) драйвер giveio, с помощью которого возможно это проделать. Для этого  необходимо запустить эту службу, произвести считывание/запись из регитсров, остановить службу.Мои попытки к нормальной работе не привели. Может кто занимался этим? Или етсь какие нибудь исходники?


 
GanibalLector ©   (2005-01-03 00:05) [1]

Что-то типа :

var
aa:cardinal;ess:TEnumServiceStatus;
begin
aa:=OpenService(OpenSCManager(nil,nil, SC_MANAGER_ALL_ACCESS),"SmcService",SERVICE_ALL_ACCESS);
ControlService(aa,SERVICE_CONTROL_STOP,ess.ServiceStatus);
CloseServiceHandle(aa);

выделенное заменить на свое!


 
GanibalLector ©   (2005-01-03 00:07) [2]

вариант №2

var
shell:OleVariant;
begin
shell:=CreateOleObject("Shell.Application");
shell.ServiceStop("SmcService",false);
...
shell.ServiceStart("SmcService",true);


 
LexusU   (2005-01-04 01:23) [3]

Это не помогает. (Кстати в первом варианте надо еще StartService использовать)



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

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

Наверх




Память: 0.47 MB
Время: 0.149 c
3-1106556894
sergeymist
2005-01-24 11:54
2005.02.20
как подставить данные полученные из query в список combobox


1-1107427514
GrayFace
2005-02-03 13:45
2005.02.20
Как лучше отучить "пищать" Edit и форму?


6-1102415874
Prankster.
2004-12-07 13:37
2005.02.20
Получение файла из сети


14-1106744167
Cosinus
2005-01-26 15:56
2005.02.20
Вылетел комп с синим экраном и каким то непонятным сообщением...


4-1104861759
programmerts
2005-01-04 21:02
2005.02.20
Можно ли скрыть свой процесс в Delphi или запретить его завершени