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

Вниз

Как завершить системныЙ процесс?   Найти похожие ветки 

 
Handle   (2006-03-03 18:31) [0]

Как завершить системныЙ процесс?
Например получаю я список процессов.

var
hSnapShot:     THandle;
uProcess:      PROCESSENTRY32;
r:             longbool;
begin
hSnapShot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
uProcess.dwSize := Sizeof(uProcess);
if(hSnapShot<>0)then
begin
r:=Process32First(hSnapShot, uProcess);
while r <> false do
begin
ListBox1.Items.Add(uProcess.szExeFile);
r:=Process32Next(hSnapShot, uProcess);
end;
CloseHandle(hSnapShot);
end;


Обычные процессы функция TerminateProcess убивает, а системные не может.
Как же завершить например winlogon.exe.
Заранее благодарен.Спасибо.


 
kaZaNoVa ©   (2006-03-05 08:56) [1]

Handle   (03.03.06 19:03)
Как же завершить например winlogon.exe.

система рухнет. сразу.

- привелегии получи и всё .. если надо - есть пример ..


 
kaZaNoVa ©   (2006-03-05 09:43) [2]

function SetDebugPriv: Boolean;
var
Token: THandle;
tkp: TTokenPrivileges;
begin
Result := false;
if OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token) then
begin
 if LookupPrivilegeValue(nil, PChar("SeDebugPrivilege"), tkp.Privileges[0].Luid) then
 begin
   tkp.PrivilegeCount := 1;
   tkp.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED;
   Result := AdjustTokenPrivileges(Token, false, tkp, 0, PTokenPrivileges(nil)^, PDWord(nil)^);
 end;
end;
end;


 
kaZaNoVa ©   (2006-03-05 09:53) [3]

и про права админа не забудь)))


 
Handle   (2006-03-05 11:50) [4]


> kaZaNoVa ©   (05.03.06 09:53) [3]

Спасибо буду разбираться.


 
Saygak ©   (2006-03-05 16:45) [5]

А можно попутный вопрос?
var
hSnapShot:     THandle;
uProcess:      PROCESSENTRY32;
r:             longbool;
begin
hSnapShot:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
uProcess.dwSize := Sizeof(uProcess);
if(hSnapShot<>0)then
begin
r:=Process32First(hSnapShot, uProcess);
while r <> false do
begin
ListBox1.Items.Add(uProcess.szExeFile);
r:=Process32Next(hSnapShot, uProcess);
end;
CloseHandle(hSnapShot);
end;

а где описаны используемые функции


 
Handle   (2006-03-05 16:50) [6]


> Saygak ©   (05.03.06 16:45) [5]
> а где описаны используемые функции


PsAPI, Shellapi , ToolWin, TLHelp32


 
kaZaNoVa ©   (2006-03-05 16:51) [7]

Saygak ©   (05.03.06 16:45) [5]
uses
Tlhelp32;



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

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

Наверх




Память: 0.48 MB
Время: 0.048 c
15-1146772297
Том Сойер
2006-05-04 23:51
2006.05.28
Чтот в последнее время мой мозг стал деревенеть... :(


2-1147280995
BAngel
2006-05-10 21:09
2006.05.28
как создать свой цвет


4-1141606261
Nostradamus
2006-03-06 03:51
2006.05.28
HKLM под Windows Vista (Build 5308)


1-1145198224
Volf_555
2006-04-16 18:37
2006.05.28
WARNING. Duplicate resource(s): Type 10 (RCDATA)


1-1145370011
Darvin
2006-04-18 18:20
2006.05.28
Отловить изменение текстовых свойств компонента