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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 11.04.2013, 13:42   #1
xRamzeSx
Форумчанин
 
Регистрация: 24.01.2010
Сообщений: 151
По умолчанию Диапазон адресов

Привет всем.

Есть процесс, *.exe.
В нем если по-копаться той же самой ArtMoney, можно найти нужный адрес, к примеру $00123ABC.

Заменить значение на конкретном адресе я могу:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
res:int64;
begin
  res:=0;
  write_value($00123ABC,4,res);
end;
Вопрос вот в чем.. Как можно захватить диапазон адресов, то есть взять тот же самый $00123ABC и разбить его на 2 части: $0012 и 3ABC. Мне нужно заменить весь диапазон из первых 4-х цифр: от $00000000 до $99990000 и к нему прибавить (+3ABC) соответственно.

Должно получиться что-то типо этого:
Код:
var
MASS:тип;
begin
  MASS:= от $00000000 до $99990000;
  write_value(MASS+$3ABC,4,res);
end;
Попробовал вот так вот, запускается, но не работает:
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var
res:int64;
i:integer;
begin
  res:=0;
  for i:= $00000000 to $99990000 do
  read_value(i+$3ABC,4,res);
  Label1.Caption:=''+inttostr(res);
    begin
      if Label1.Caption='0' then
        Label2.Caption:='Off';
    end
end;
Help...
xRamzeSx вне форума Ответить с цитированием
Старый 13.04.2013, 05:38   #2
xRamzeSx
Форумчанин
 
Регистрация: 24.01.2010
Сообщений: 151
По умолчанию

Люди, помогите пожалуйста.. В чем ошибка?
xRamzeSx вне форума Ответить с цитированием
Старый 13.04.2013, 08:20   #3
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,876
По умолчанию

Код:
for i:= $00000000 to $99990000 do
 begin  
read_value(i+$3ABC,4,res);
  Label1.Caption:=''+inttostr(res);
   // удален бегин
      if Label1.Caption='0' then
        Label2.Caption:='Off';
    end
phomm вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
.htaccess склейка адресов hon PHP 0 03.04.2013 22:46
Запоминалка адресов Dozent БД в Delphi 7 19.12.2012 23:58
Анализ IP-адресов ConstantinPerm Паскаль, Turbo Pascal, PascalABC.NET 2 07.12.2012 14:44
перебор ip адресов??? Redeemer_09 Общие вопросы C/C++ 0 25.12.2010 22:06
Как написать в коде чтобы диапазон А копировался как значение в диапазон В. Dorvir Microsoft Office Excel 12 23.05.2008 22:11