Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для opel431

Ветеран


Contributor


Сообщения: 1803
Благодарности: 714

Профиль | Отправить PM | Цитировать


Лучше, если делать с обработкой ошибок. Убедится, что функции возвращают результат...
Код: Выделить весь код
var
Res : Integer;
....
Res:= ReadProcessMemory('hProcess', 'lpBaseAddress', 'lpBuffer, nSize', '*lpNumberOfBytesRead');
  if Res <> 0 then
  RaiseLastOSError
else
begin
 //
end;...
времени много, посмотрел советы у других
1. Попробовать явно сделать приведение типов
Код: Выделить весь код
type
 size_t = cardinal;
2. или последний параметр изменить - SizeOf(i)

-------
Хвала тому, кто встав среди камней, уча другого, сам будет умней.


Последний раз редактировалось opel431, 27-07-2015 в 00:17.


Отправлено: 16:47, 26-07-2015 | #2