Программинг Форум для тем связанных с программированием
25.01.2011, 23:33
#91
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
о госпади, скомпилировалось..., тока какого хрена после objaddr^:=0; все равно 1 2 3?!
__________________
Н а ч а л о .
25.01.2011, 23:34
#92
Рыцарь
Регистрация: 26.06.2009
Сообщений: 2,433
Сказал Спасибо: 154
Имеет 692 спасибок в 426 сообщенях
код функции выкладывай
__________________
Шожиделать.. ботить хочется..
За это сообщение destructor нажился спасибкой от:
25.01.2011, 23:36
#93
Местный
Регистрация: 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 .
25.01.2011, 23:41
#94
Рыцарь
Регистрация: 26.06.2009
Сообщений: 2,433
Сказал Спасибо: 154
Имеет 692 спасибок в 426 сообщенях
вот так выглядит память, у теб objaddr = 01D7080C
Код:
01D7080C dd 408184h // ты тут записываеш нолик , это кстате вызовит крит ошибку при выгрузке обьекта
01D70810 dd 1 // а надо записать сюда 7
01D70814 dd 2 // сюда 6
01D70818 dd 3 // и сюда 5
__________________
Шожиделать.. ботить хочется..
Последний раз редактировалось destructor, 25.01.2011 в 23:44 .
За это сообщение destructor нажился спасибкой от:
25.01.2011, 23:45
#95
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
угу... так, в таком случае...
Добавлено через 1 минуту
ураааа)
objaddr:=pointer(Integer(objaddr)+4);
__________________
Н а ч а л о .
Последний раз редактировалось supernewbie, 25.01.2011 в 23:45 .
Причина: Добавлено сообщение
25.01.2011, 23:47
#96
Рыцарь
Регистрация: 26.06.2009
Сообщений: 2,433
Сказал Спасибо: 154
Имеет 692 спасибок в 426 сообщенях
ну бля чем $01D7080C отлитчается от $01D70810 и от этого $01D70814 ???
Добавлено через 1 минуту
Цитата:
Сообщение от
supernewbie
objaddr:=pointer(Integer(objaddr)+4);
поправочка:
param1:= pointer(Integer(objaddr)+4);
так круче, поверь
__________________
Шожиделать.. ботить хочется..
Последний раз редактировалось destructor, 25.01.2011 в 23:47 .
Причина: Добавлено сообщение
За это сообщение destructor нажился спасибкой от:
25.01.2011, 23:49
#97
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
как занимательно)
__________________
Н а ч а л о .
25.01.2011, 23:50
#98
Рыцарь
Регистрация: 26.06.2009
Сообщений: 2,433
Сказал Спасибо: 154
Имеет 692 спасибок в 426 сообщенях
Код:
var:
param1: ^integer;
begin
...
param1: = objaddr+1; //так тоже должно прокатить, но главное идею понял
__________________
Шожиделать.. ботить хочется..
За это сообщение destructor нажился спасибкой от:
25.01.2011, 23:51
#99
Местный
Регистрация: 23.09.2009
Сообщений: 1,232
Сказал Спасибо: 119
Имеет 172 спасибок в 134 сообщенях
атнюдь
[Error] path.dpr(23): Operator not applicable to this operand type
__________________
Н а ч а л о .
25.01.2011, 23:53
#100
Рыцарь
Регистрация: 26.06.2009
Сообщений: 2,433
Сказал Спасибо: 154
Имеет 692 спасибок в 426 сообщенях
выкладывай dll+exe окончательные
__________________
Шожиделать.. ботить хочется..
За это сообщение destructor нажился спасибкой от:
Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
Часовой пояс GMT +4, время: 05:09 .
vBulletin style designed by
MSC Team .
Powered by vBulletin® Version 3.6.11
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd. Перевод:
zCarot
Вы хотите чувствовать себя в безопасности? чоп Белган обеспечит её!