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