Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.19;
Скачать: CL | DM;

Вниз

Как достать значение из памяти д ругой проги?   Найти похожие ветки 

 
antonp   (2002-06-13 08:33) [0]

Нужно достать значение из памяти другой проги.
Пишем:
var Uo: Hwnd;
a,k: Cardinal;
p,i: Pointer;
n: Integer;
begin
p:=@n;
i:=Ptr($0134FD08);
Uo:=WindowFromPoint(Mouse.CursorPos); узнаем хендл окна
GetWindowThreadProcessID(Uo, a); узнаем хендл процесса
ReadProcessMemory(a, i, p, 8, k); считываем значение
Edit1.Text:=IntToStr(n);
Но ReadProcessMemory возвращает 0 т.е. не срабатывает. Почему?
GetLastError возвращает 6. Если я там посмотрел это значит что хендл процесса неправильный но я проверял по другой проге и ID процесса моя прога возвращает правильно.
Заранее благодарен.


 
Digitman   (2002-06-13 10:27) [1]

1.
>>GetWindowThreadProcessID(Uo, a); узнаем хендл процесса

И как же ты его здесь "узнаешь" ? Ты же результат ф-ции игнорируешь ! Прокомментируй.

2. Процесс перед использованием ф-ции ReadProcessMemory() д.б. открыт как минимум с правом PROCESS_VM_READ (см.вызов OpenProcess())


 
Alexander Vorobyov   (2002-06-13 10:29) [2]

А между строчками:
GetWindowThreadProcessID(Uo, a);
ReadProcessMemory(a, i, p, 8, k);

ты случайно не пропустил нечто вроде
hProc:=OpenProcess(PROCESS_ALL_ACCESS,False,a);
?



Страницы: 1 вся ветка

Текущий архив: 2002.08.19;
Скачать: CL | DM;

Наверх




Память: 0.44 MB
Время: 0.007 c
4-60926
Dr. Web
2002-06-11 14:34
2002.08.19
Icons for MDIChild


1-60573
N A N
2002-08-07 18:36
2002.08.19
Как перекодировать KOI-8R в Win1251?


1-60574
alexsandri
2002-08-07 18:10
2002.08.19
не опходимо перехватить событие закрытия окна идля закрытия запр


1-60688
MikeFW
2002-08-06 12:47
2002.08.19
Почему у меня исчезает


1-60643
^Sanya
2002-08-08 17:36
2002.08.19
Как узнать из файла ресурсов верссию проекта?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский