Перейти к содержанию

Рекомендуемые сообщения

Всё сделал ,всё получилось и считать из памяти и записать в неё)

Cсылка на мой проект 

https://1drv.ms/u/s!AkW4Lkqk9P4igehE9MWcme2RllC4WQ

 

Огромное всем спасибо ) 

  • Плюс 1
Ссылка на комментарий
Поделиться на другие сайты

35 минуты назад, Miidi сказал:

Всё сделал ,всё получилось и считать из памяти и записать в неё)

Огромное всем спасибо ) 

Будь добр ответь то "как получилось".

Ссылка на комментарий
Поделиться на другие сайты

В том проекте старый код, вот процедура на считывание 

 

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
Ссылка на комментарий
Поделиться на другие сайты

×
×
  • Создать...

Важная информация

Находясь на нашем сайте, Вы автоматически соглашаетесь соблюдать наши Условия использования.