Чтение/запись в памяти приложения на Delphi

[Crow2k]

Выручайте неопытного. Задача: написать программу с целью изменения данных в адресе памяти другого приложения или попросту редактора памяти.
Допустим, нужное значение находится по адресу $001695A0, программа должна преобразовать его в текст и вывести.
Всем кто откликнется, буду благодарен.

[knight]

Предлагаю решение :внедрить DLL в чужое адресное пространство пример на эту тему можно посмотреть у Джеффри Рихтера "Программирование под Windows для профессионалов"
или вот по этому адресу есть статья с примерами

http://codeproject.com/threads/winspy.asp

Если охота сделать без DLL. То можно использовать функции ReadProcessMemory/WriteProcessMemory

[alexey_ma]

Вот абсолютно рабочая функция получающая текст активного таба в чужом процессе . Правда на С++, но механизм , я думаю понятен.

//---------------------------------------------------------------------------------
//                 GetActiveTabText
//---------------------------------------------------------------------------------
// This function return the text(caption) of active page
// in the tabcontrol window, that it get.
//---------------------------------------------------------------------------------
typedef LPVOID (__stdcall * PFNVIRTALLEX)(HANDLE, LPVOID, DWORD, DWORD,DWORD);

 CString GetActiveTabText(HWND hWnd)
{
    DWORD dwProcessId;
    HANDLE hProcess;
    PFNVIRTALLEX pfnVirtualAllocEx;
    TC_ITEM *ptci;
    TC_ITEM tci;
    CString Text;
    int TabSelected;
    char Buffer[255] = "\n";
    TabSelected = TabCtrl_GetCurSel(hWnd);
    GetWindowThreadProcessId(hWnd, &dwProcessId);
    hProcess = OpenProcess( PROCESS_VM_OPERATION | PROCESS_VM_READ | PROCESS_VM_WRITE, FALSE, dwProcessId);
    if (hProcess == NULL)
    {
        MessageBox(NULL,"Could not communicate with process","", MB_OK | MB_ICONWARNING);  
        return "";//0;
    }
/// Allocate memory in the remote process's address space
//get procAddress this way so the code can be compiled on win 95/98
    pfnVirtualAllocEx = (PFNVIRTALLEX) GetProcAddress(GetModuleHandle("KERNEL32.DLL"),"VirtualAllocEx");

    ptci = (TC_ITEM*) pfnVirtualAllocEx(hProcess, NULL, sizeof(TC_ITEM)+25, MEM_RESERVE | MEM_COMMIT, PAGE_READWRITE);
    tci.mask = TCIF_TEXT;
    tci.pszText = (LPTSTR) (ptci + 1) ;
    tci.cchTextMax = 25;
// Write the local TC_ITEM structure to the remote memory block
    WriteProcessMemory(hProcess, ptci, &tci, sizeof(tci), NULL);
    TabCtrl_GetItem(hWnd,TabSelected ,ptci);
// Read the remote text string into the end of our clipboard buffer
    ReadProcessMemory(hProcess, ptci + 1,Buffer, 24, NULL);
// Free the memory in the remote process's address space
    VirtualFreeEx(hProcess, ptci, 0, MEM_RELEASE);
    CloseHandle(hProcess);
    Text = Buffer;
    return Text;
}
// -----------------------------------------------------

[Crow2k]

Сообщение от J. Bond

Если охота сделать без DLL. То можно использовать функции ReadProcessMemory/WriteProcessMemory

Ясно, а как же его внедрить?

[alexey_ma]

Так написал же уже.
Порядок такой :
Сначала нужно получить хендл процесса. Eсли известен хендл какого либо окна этого процесса то функция GetWindowThreadProcessId вернёт processID . Открываем по этому ID процесс и получаем хендл процесса - hProcess.
hProcess = OpenProcess( PROCESS_VM_OPERATION | PROCESS_VM_READ | PROCESS_VM_WRITE, FALSE, ProcessId)

И читаем по адресу
ReadProcessMemory(hProcess,адрес с которого читаем ,буфер куда читаем, сколько нужно прочитать байт, количество прочитанных байт);

Пишем аналогично (только осторожно чтобы не
завалить апликацию)
WriteProcessMemory(hProcess, адресс по которому пишем, адрес того что пишем, сколько байт хотим записать,сколько на самом деле записали)

Все функции - WindowsAPI, так-что в делфи проблем быть не должно

[chesnok]

alexey_ma
Только нужно добавить, что если мы пишем в чужой процесс, неплохо было бы перед этим сделать VirtualAllocEx в нём, дабы не завалить его.
rtfm

[alexey_ma]

Не, судя по вопросу, он хочет изменить данные по определенному адресу, в этом случае аллокацию делать не нужно, но почти наверняка завалим процесс.
Кстати в коде который я привел выше есть вызов VirtualAllocEx