Показать сообщение отдельно
  #17  
Старый 16.07.2010, 17:07
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от Vayrus
Почитал про получение указателя и подумал что мой метод проще, надежнее и универсальнее, ну конечно для конкретного приложения.
дело твоё, мне кажется указателем куда проще, нужно просто заранее в артмани найти указатель на это число и потом в коде менять переменную так
Код:
PInteger(ProcessHeapOffset+VarPointer)^ := 1337; //например

я всё таки не понял что тебе надо? найти ты нашёл, далее выделить блок памяти (64/128/... байт) и отсеять символы
Код:
function WinnowAnsiChars(ABuf: PChar): String;
var
  i: Integer;
begin
  Result := '';
  for i:=1 to Length(ABuf) do
  begin
    if(ABuf[i] in [#1..#256])then
      Result := Result + ABuf[i];
  end;
end;
как то так
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием