VPF::Содержимое ячейки памяти - Форум программистов

Жареный

Дата 14.2.2007, 19:13 (ссылка)

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

Загрузка ...

Новичок

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

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

Ребята. Задача такая. в некоторых играх отсутствует отображение значения определенных параметров, патронов например. Можно найти это значение например с помощью Артмани, остается задача - прочитать найденную ячейку и вывести ее значение поверх всех окон в углу экрана. На делфи конечно, других языков кроме бейсика я не знаю. естественно известно только название процесса и адрес ячейки в нем. Я ищу решение, постораюсь написать, если что найду.

Snowy

Дата 14.2.2007, 19:17 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Так в чём вопрос-то?
Может это поможет: http://forum.vingrad.ru/topic-85291/0.html#entry658568

Жареный

Дата 14.2.2007, 19:25 (ссылка)

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

Загрузка ...

Новичок

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

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

Id процесса... Артмани выдает только имя процесса, по названию ехешника наверное. и значение ячейки. Спасибо, я просмотрю этот код, думаю мне это поможет
Как ID Узнать?
smile

Snowy

Дата 14.2.2007, 19:48 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Код


procedure NTProcess; // получаем список запущенных процессов
var
  PIDArray: array [0..1023] of DWORD;
  cb: DWORD;
  I: Integer;
  ProcCount: Integer;
  hMod: HMODULE;
  hProcess: THandle;
  ModuleName: string;
begin
  EnumProcesses(@PIDArray, SizeOf(PIDArray), cb);
  ProcCount := cb div SizeOf(DWORD);
  for I := 0 to ProcCount - 1 do
  begin
    hProcess := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False, PIDArray[I]);
    if (hProcess <> 0) then
    begin
      EnumProcessModules(hProcess, @hMod, SizeOf(hMod), cb);
      SetLength(ModuleName, MAX_PATH);
      GetModuleFilenameEx(hProcess, hMod, PChar(ModuleName), MAX_PATH);
      ModuleName := PChar(ModuleName);
      CloseHandle(hProcess);
      // ModuleName - Это exe
      // PIDArray[I] - Это его PID
    end;
  end;
end;

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