Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.12.2010, 16:54   #1
Dima DDM
Форумчанин
 
Аватар для Dima DDM
 
Регистрация: 09.11.2010
Сообщений: 134
Восклицание Редактирование памяти процесса

Подскажите что я делаю не так ???
Память не переписыватеся!!! и ничего не изменяется(((
Код:
var
hwin:HWND;
hProcess:HWND;
PrcResult:WORD;
PID:DWORD;
s:Cardinal;
HandleWindow:integer;
 buf:PCHAR;
 write          : cardinal;
const
PokeValue=$5E5F0FF;
 Address=$02A73D91 {0094ADD{O};
 NumberOfBytes=1;
 begin

 hwin:=FindWindow(nil, 'заголовок искомой проги');
  SendMessage(hwin,WM_SETTEXT,0,lparam(LPCTSTR('Заголовок моей проги')));

 GetWindowThreadProcessid(hwin,@PID);
HandleWindow:=OpenProcess(PROCESS_ALL_ACCESS,false,PID);
 GetMem(buf,1);
 buf^:=Chr(PokeValue);
 WriteProcessMemory(HandleWindow,ptr(Address),buf,NumberOfBytes,write);
 FreeMem(buf);
 CloseHandle(HandleWindow);
 end.     //money         0094ADDO
http://ddmsite.ucoz.ru Мой сайт.
Бесплатный Блокировщик рекламы
http://download.adguard.ru/d/1656/adguardInstaller.exe

Последний раз редактировалось Dima DDM; 25.12.2010 в 17:25.
Dima DDM вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Размер памяти процесса ZaRDaK Общие вопросы Delphi 5 25.09.2010 23:48
Защита памяти процесса. worldhero Фриланс 2 25.07.2010 11:15
Редактирование памяти процесса (Delphi) Air Помощь студентам 4 17.10.2008 15:19
Редактирование памяти процесса Air Win Api 6 16.02.2008 20:15