VPF::Процесс не убивается... - Форум программистов

Илья

Дата 15.4.2005, 11:52 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

FindWindow(nil, 'Безымянный - Блокнот');
TerminateProcess(GetWindowThreadProcessId(h),0)

В первой строке есть хендл (проверял) и ID процесса вроде находит (проверял) вот тока процесс не убивается... вторая строка кода возвращает False... Подскажите что делаю неправильно... (блокнот продолжает висеть в процессах)... Вообще это я так для примера Блокнот убиваю, убить из процессов надо другую прогу WM_Close и WM_Destroy не катит...
Кто знает мож поможите... очень надо... smile

<Spawn>

Дата 15.4.2005, 12:30 (ссылка)

(нет голосов)

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 1
Всего: 64

Например, так:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
  wnd, hProcess: THandle;
  PID: DWORD;
begin
  wnd := FindWindow('Notepad', nil);
  if wnd <> 0 then
  begin
    GetWindowThreadProcessID(wnd, @PID);
    hProcess := OpenProcess(PROCESS_TERMINATE, False, PID);
    if hProcess = 0 then
    begin
      ShowMessage(SysErrorMessage(GetLastError));
      Exit;
    end;
    TerminateProcess(hProcess, 0);
  end;
end;

Это сообщение отредактировал(а) <Spawn> - 15.4.2005, 12:32

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

Guest

Дата 15.4.2005, 12:54 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Я так и думал, что все дело в определенном доступе до процесса.... Тока не мог его правильно организовать!!!! ТЫ ПРОСТО ГЕНИЙ СПАСИБО!!!!! smile

Pathfider

Дата 19.4.2005, 19:52 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 128
Регистрация: 13.7.2004
Где: все там же

Репутация: нет
Всего: 1

К слову: иногда нужны привелегии SE_DEBUG_PRIVILEGE иначе например системный процесс в NT не убьешь.

--------------------

Trust is a weakness

Girder

Дата 19.4.2005, 23:33 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

Цитата(Pathfider @ 19.4.2005, 20:52)

К слову:

К слову... можно и без всяких привелегий... завалить... например: ACL ему подправить

Это сообщение отредактировал(а) Girder - 19.4.2005, 23:35

--------------------

Как слышим, так и пишим.
Истина где-то там...

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »