VPF::ZwTerminateProcess - Форум программистов

bems

Дата 22.3.2006, 15:43 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Цитата(bartram @ 21.3.2006, 20:42

)

В этом случае возвращается в качестве paramstr(0) путь к той проги КОТОРАЯ завершает, а не КОТОРУЮ завершают. В моём случае нужен 2 вариант, так что этот метод подходит

ну да, конечно. Это я давно понял

Цитата(bems @ 20.3.2006, 20:59

)

Добавлено @ 21:06

Цитата(bartram @ 20.3.2006, 20:26 )
Хм.... А это идея, как я сам не додумался

И правильно! это я стормозил

Вобщем извини

Цитата(bartram @ 21.3.2006, 20:42

)

Функция не пашет

а вот это странно. у меня работала. Какая винда? Что возвращает функция?

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

Обижено школьников: 8

bartram

Дата 22.3.2006, 20:47 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 1606
Регистрация: 22.2.2004
Где: Russia, Samara

Репутация: 3
Всего: 29

bems, я вот тут набросал функцию на основк того кода что ты мне дал

Код


// функция сравнивает два процесса если Уникальные id совпадают то возвращает true
  function CompareProcesses(pid: dword): boolean;
  var
  MyHandle, ProcessHandle : Thandle;
  ProcMyUnPid, ProcUnPid : dword;
  begin
  MyHandle:=OpenProcess(PROCESS_ALL_ACCESS, false,GetCurrentProcessId);
  ProcessHandle:=OpenProcess(PROCESS_ALL_ACCESS, false,pid);
  ProcMyUnPid:=ProcessHandleToID(MyHandle);
  ProcUnPid:=ProcessHandleToID(ProcessHandle);
  if ProcMyUnPid = ProcUnPid
  then
  Result:=True
  else
  Result:=False;
  end;

Она почему то не пашет, хотя должна smile

Винда XP sp1

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

В каждом из нас спит гений, но с каждым днем все крепче ;-)
bartram.ru
Twitter
user posted image

bems

Дата 22.3.2006, 20:57 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 21
Всего: 88

Код


MyHandle:=OpenProcess(PROCESS_ALL_ACCESS, false,GetCurrentProcessId);
ProcessHandle:=OpenProcess(PROCESS_ALL_ACCESS, false,pid);
//хэндл по ПИД
ProcMyUnPid:=ProcessHandleToID(MyHandle);
ProcUnPid:=ProcessHandleToID(ProcessHandle);
//а теперь наоборот?

не понял я этих усложнений smile

сделай так

Код


MyHandle:=OpenProcess(PROCESS_ALL_ACCESS, false,GetCurrentProcessId);
ProcMyUnPid:=ProcessHandleToID(MyHandle);
if GetCurrentProcessID=ProcMyUnPid then MessageBox(0,'Так должно быть всегда','',0)
                                   else MessageBox(0,'Бемс! Бочина! Баран, блин!','',0);

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

Обижено школьников: 8

Cashey

Дата 17.11.2006, 16:06 (ссылка)

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

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

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

Цитата(bartram @ 19.3.2006, 00:06

)

AdvApiHook, NativeAPI

А где взять эти модули?

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

библия учит любить ближнего, а камасутра обучает как именно

BUGOR

Дата 17.11.2006, 19:20 (ссылка)

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

Загрузка ...

Опытный

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

Репутация: 2
Всего: 16

http://www.wasm.ru/pub/21/files/advapihook.rar

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

Живу недоумевая, всё время хочу понять...
http://hunger.ru

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