не убиваемый процесс

← →
Talla2k © (2004-02-07 14:18) [0]

Есть некий процесс,причем: приоритет нормальный, потоков 18.
И возникла необходимость убить его.
Стандартый способ не помогает(которым все остальное могу убить)

...
ID:= StrToInt(ListView1.Selected.SubItems[0]);
hProcess:= OpenProcess(PROCESS_ALL_ACCESS, false, ID);
if hProcess <> INVALID_HANDLE_VALUE then begin
TerminateProcess(hProcess, 0) ;
CloseHandle(hProcess); end;
...//что-то типа такого

Кроме того,даже не могу его убить из Диспетчера задач.Диспетчер говорит,что нет прав доступа.
Как быть????

← →
Digitman © (2004-02-07 14:27) [1]

это процесс NT-сервиса ?

← →
Talla2k © (2004-02-07 14:36) [2]

Судя по всему нет.Это процесс фаервола Sygate Personal Firewall.

← →
Digitman © (2004-02-07 14:40) [3]

первый раз слышу. что какой-то файрвол, пусть даже и самый захудалый, был обычным приложением

> Судя по всему нет

на основании чего такие умозаключения ? ты видишь этот процесс в списке процессов taskmanager"а ? это еще ни о чем не говорит

средствами станд.консоли Services убедись в том, что Sygate Personal Firewall не фигурирует в списке инсталлированных в системе сервисов

← →
Talla2k © (2004-02-07 17:34) [4]

>средствами станд.консоли Services убедись в том,
>что Sygate Personal Firewall не фигурирует в списке инсталлированных в системе сервисов

Убедился в том,что он ТАМ. :(
И что, теперь никак нельзя его замочить???

← →
DNS (2004-02-07 18:25) [5]

Отключить сервис и поставить не загружаться ... И больше его не будет... Если у тебя нет сети и ты не подключен к инету - то там еще много можно отключить... Кстати если тебе не нравиться "новый" стиль ХР (встречал я таких людей :(
то отключи службу тем :)

← →
Nous Mellon © (2004-02-07 20:54) [6]

Удалено модератором
Примечание: Offtopic

← →
Talla2k © (2004-02-08 01:41) [7]

>to DNS
Мне действия необходимо сделать программно.
Как из Delphi отключить сервис???(причем запученный)

← →
Talla2k © (2004-02-08 14:22) [8]

Ну подскажите же!!!

← →
KosilkA © (2004-02-08 14:27) [9]

ищи инфу по TerminateProcess + получение debug-привилегии

← →
Serge_ (2004-02-09 00:02) [10]

Поищи в HELP по Win32SDK
функцию SetServiceStatus

> Как из Delphi отключить сервис???(причем запученный)

послать ему команду stop
если сервис допускает остановку, он остановится, и процесс сервиса завершится (но только в том случае, если процесс этот реализует только один сервис, потому что в общем случае процесс может реализовывать более чем один сервис)

procedure TForm1.Button1Click(Sender: TObject);
var
shell:OleVariant;
begin
shell:=CreateOleObject("Shell.Application");
shell.ServiceStop("Sygate Personal Firewall",false);
end;

← →
sVic (2004-02-09 10:49) [13]

http://delphimaster.net/view/4-1075355181/

Всем БОЛЬШОЕ спасибо,разобрался!!!

Вот решение 2 способами:
//для остановки
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);
end;

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

// для старта

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

var
aa:cardinal;ess:Pchar;
begin
aa:=OpenService(OpenSCManager(nil,nil, SC_MANAGER_ALL_ACCESS),"SmcService",SERVICE_START);
StartService(aa,0,ess);
end;

З.Ы. Вопрос к Polevi .
А где найти описания к командам сервисов через OleObject???
Для запуска сервиса по аналогии сам команду(ServiceStart) выдумал,а она оказывается ТА! :)

hProcess:= OpenProcess(PROCESS_TERMINATE, false, ID);
Poprobui sdeat" TAK

не убиваемый процесс Найти похожие ветки