for supernewbie (логово извращенцев)

		CoderX :: Forums > Основные форумы > Программинг
for supernewbie (логово извращенцев)

Программинг Форум для тем связанных с программированием

Чат (Новых сообщений с момента вашего последнего визита нет)
Сообщение...	Загрузка...
Задавайте ваши вопросы на форуме. Чат предназначен для небольших разговоров.

Опции темы

Опции просмотра

Предыдущее

Следующее

25.01.2011, 23:36

#11

supernewbie

Местный

Регистрация: 23.09.2009

Сообщений: 1,232

Сказал Спасибо: 119

Имеет 172 спасибок в 134 сообщенях

delphi Код:

procedure MyProc;
var
adr:pointer;
objaddr:^integer;
buf:cardinal;
i:^integer;
begin
  messagebox(0,'pause','',0);
  adr:=pointer( getmodulehandle('project25.exe') + $A798);
  objaddr:=pointer(adr^);
  messagebox(0,PChar(IntToHex(integer(objaddr),8)),'',0);
  messagebox(0,PChar(IntToHex(integer(objaddr^),8)),'',0);
  objaddr^:=0;
  messagebox(0,PChar(IntToHex(integer(objaddr^),8)),'',0);
end;

__________________
Начало.

Последний раз редактировалось destructor, 25.01.2011 в 23:38.

« Предыдущая тема | Следующая тема »

Опции темы
Версия для печати Отправить по электронной почте
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

Ваши права в разделе
Вы не можете создавать темы Вы не можете отвечать на сообщения Вы не можете прикреплять файлы Вы не можете редактировать сообщения BB коды Вкл. Смайлы Вкл. [IMG] код Вкл. HTML код Выкл.

Часовой пояс GMT +4, время: 07:34.