Собственно уровень в дэлфи у меня на 3 ) Сейчс учусь работать с памятью процессов и столкнулся с жесткой непоняткой.Пробую читать из памяти игры строку текста в 5 символов.Если на форме присутствует тольк о 2 компонента,такие как Edit и Button то все замечательно,НО! стоит запихнуть в форму еще один компонент,притом не важно какой,будь-то еще одно окно редактирования Edit или еще одна кнопка или панель инструментов,не важно,появляется в моем поиске какая-то странная палка в конце.Что это не имею немалейшего понятия...Смотрите скрины)
И кстате вод код обработчика :
procedure TForm1.Button1Click(Sender: TObject); Var HandleWindow : integer; ProcessId : integer; WindowName : integer; buf : PChar; read : cardinal; Const WindowTitle = 'Имя окна'; Address = $0987D852; begin WindowName := FindWindow(nil,WindowTitle); GetWindowThreadProcessId(WindowName,@ProcessId); HandleWindow := OpenProcess(PROCESS_ALL_ACCESS,False,ProcessId); GetMem(buf,5); ReadProcessMemory(HandleWindow,ptr(Address),buf,5,read); Form1.Edit1.Text := buf; FreeMem(buf); CloseHandle(HandleWindow); end;
Отредактировано Человек?! (2009-10-03 20:38:10)