Форум АНТИЧАТ - Показать сообщение отдельно

ТС, используй тег code, нифига не читабельно =\
Я по делфи не спец, чем смогу помогу.
Функция GetProcess() выглядит примерно так:

Код:

var 
	pe32:PROCESSENTRY32;
	hProcessSnap:cardinal;
	proc:Cardinal;
begin
	hProcessSnap:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
	Process32First(hProcessSnap,pe32);
	while Process32Next(hProcessSnap,pe32) do 
	begin
		if pe32.szExeFile='magent.exe' then
		begin
			proc:=OpenProcess(PROCESS_ALL_ACCESS,false,pe32.th32ProcessID);
			result:=proc;
		end;
	end;
 end;

посмотри еще на функцию ReadProcessMemory, обычно с ней проблемы случаются.