Miidi Опубликовано 8 апреля, 2017 Автор Поделиться Опубликовано 8 апреля, 2017 Всё сделал ,всё получилось и считать из памяти и записать в неё) Cсылка на мой проект https://1drv.ms/u/s!AkW4Lkqk9P4igehE9MWcme2RllC4WQ Огромное всем спасибо ) 1 Ссылка на комментарий Поделиться на другие сайты Поделиться
ReWanet Опубликовано 8 апреля, 2017 Поделиться Опубликовано 8 апреля, 2017 35 минуты назад, Miidi сказал: Всё сделал ,всё получилось и считать из памяти и записать в неё) Огромное всем спасибо ) Будь добр ответь то "как получилось". Ссылка на комментарий Поделиться на другие сайты Поделиться
Garik66 Опубликовано 8 апреля, 2017 Поделиться Опубликовано 8 апреля, 2017 35 минуты назад, what228 сказал: Будь добр ответь то "как получилось". Он же кинул проект. Ссылка на комментарий Поделиться на другие сайты Поделиться
ReWanet Опубликовано 8 апреля, 2017 Поделиться Опубликовано 8 апреля, 2017 19 минуту назад, Garik66 сказал: Он же кинул проект Не заметил что-то Ссылка на комментарий Поделиться на другие сайты Поделиться
Garik66 Опубликовано 8 апреля, 2017 Поделиться Опубликовано 8 апреля, 2017 2 минуты назад, what228 сказал: Не заметил что-то Сейчас переделаю его собщения, чтобы было более понятнее. 1 Ссылка на комментарий Поделиться на другие сайты Поделиться
Miidi Опубликовано 9 апреля, 2017 Автор Поделиться Опубликовано 9 апреля, 2017 В том проекте старый код, вот процедура на считывание procedure TForm1.Button2Click(Sender: TObject); var nob: size_t; whp: single; begin WindowName := FindWindow(nil, WindowTitle); { ShowMessage(WindowName.ToString); } ThreadId := GetWindowThreadProcessId(WindowName, @ProcessId); { ShowMessage(ThreadId.ToString); } HandleWindow := OpenProcess(PROCESS_ALL_ACCESS, False, ProcessId); ReadProcessMemory(HandleWindow, ptr(Address), @whp,sizeof(whp),nob); Edit1.Text := FloatToStr(whp); https://1drv.ms/u/s!AkW4Lkqk9P4igehF759fsrI121rdBw а вот ссылка на новый исправленный проект) 1 Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения