TerminateProcess и windows Server 2008 . Неработает.

[Человек_Борща]

Всем привет!

Собственно сабж:

Function ProcessTerminate(PID: Cardinal): Boolean;
Var
HToken: THandle;
SeDebugNameValue: Int64;
Tkp: TOKEN_PRIVILEGES;
ReturnLength: Cardinal;
HProcess: THandle;
Begin
Result:=False;
If Not OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES
Or TOKEN_QUERY,HToken) Then
Exit;
If Not LookupPrivilegeValue(Nil,'SeDebugPrivilege',SeDebugNameValue) Then
Begin
CloseHandle(HToken);
Exit;
End;
Tkp.PrivilegeCount:=1;
Tkp.Privileges[0].Luid:=SeDebugNameValue;
Tkp.Privileges[0].Attributes:=SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(HToken,False,Tkp,SizeOf(Tkp),Tkp,ReturnLength);
If GetLastError()<> ERROR_SUCCESS Then
Exit;
HProcess:=OpenProcess(PROCESS_TERMINATE,FALSE,PID);
If HProcess=0 Then
Exit;
If Not TerminateProcess(HProcess,DWORD(-1)) Then
Exit;
CloseHandle(HProcess);
Tkp.Privileges[0].Attributes:=0;
AdjustTokenPrivileges(HToken,FALSE,Tkp,SizeOf(Tkp),Tkp,ReturnLength);
If GetLastError() <> ERROR_SUCCESS Then
Exit;
Result:=True;
End;

при помоши GetLastError и SysErrorMessage вытащил это:
Error code: 5
Error message: Отказано в доступе


Прова доступа полные.


как быть?

ЗюЫю стандартный TerimateProcess тот же эффект

[ArtGrek]

procedure TForm1.Button2Click(Sender: TObject);
var 
  PID:Cardinal;
  hProc:Cardinal;
  asd: THandle;
begin
  PID := 4428;
  asd  := FindWindow(Nil,'Безымянный - блокнот');
  GetWindowThreadProcessId(asd,PID);
  hProc := OpenProcess(PROCESS_TERMINATE,true,PID);
  TerminateProcess(hProc,0);
end;

так попробуи

[ArtGrek]

procedure TForm1.Button2Click(Sender: TObject);
var 
  PID:Cardinal;
  hProc:Cardinal;
  asd: THandle;
begin
  PID := 4428;
  asd  := FindWindow(Nil,'Безымянный - блокнот');
  GetWindowThreadProcessId(asd,PID);
  hProc := OpenProcess(PROCESS_TERMINATE,true,PID);
  TerminateProcess(hProc,0);
end;

так попробуи

не знаю как так получилось, что вышло 2 сообшения

[Человек_Борща]

эмм я же написал:

ЗюЫю стандартный TerimateProcess тот же эффект

[Человек_Борща]

мб кто знает причину?

[GunSmoker]

Да, но не скажем.

Не надо тебе это знать. Рано ещё.

Читай книжки умные.

[ArtGrek]

Читай книжки умные.

какие например

[GunSmoker]

По этой теме - Рихтера и Майкла Ховарда.