Форум: "Потрепаться";
Текущий архив: 2003.08.14;
Скачать: [xml.tar.bz2];
ВнизДоступ контролу чужого процесса Найти похожие ветки
← →
_toltec (2003-06-18 04:24) [0]Исходные данные:
Handle контрола.
Глобальный атом
PID чужого процесса
Нужно получить дотуп к чужому контролу.
function myFindControl(Handle: HWnd; Atom: TAtom
pid: Cardinal): TWinControl;
var ph: HWND;
p, p2: Pointer;
begin
Result := nil;
p := Pointer(GetProp(Handle, MakeIntAtom(Atom)));
ph:= OpenProcess(PROCESS_ALL_ACCESS, False, pid);
try
if not ReadProcessMemory(ph, p, p2, sizeof(TWinControl), i) then exit;
Result:= p2;
finally
( ph) Исходные данные:
Handle контрола.
Глобальный атом
PID чужого процесса
Нужно получить дотуп к чужому контролу.
function myFindControl(Handle: HWnd; Atom: TAtom
pid: Cardinal): TWinControl;
var ph: HWND;
p, p2: Pointer;
begin
Result := nil;
p := Pointer(GetProp(Handle, MakeIntAtom(Atom)));
ph:= OpenProcess(PROCESS_ALL_ACCESS, False, pid);
try
if not ReadProcessMemory(ph, p, p2, sizeof(TWinControl), i) then exit;
Result:= p2;
finally
CloseHandle(ph);
end;
end;
Луди подскажите в чем тут ошибка.
← →
Игорь Шевченко (2003-06-18 09:31) [1]Ошибка в отсутствии вызова функции GetLastError
← →
Digitman (2003-06-18 09:51) [2]А дальше-то с ним что будешь делать ? Ну получил ты, предположим, копию экземпляра интересующего класса из чужого ВАП... Что дальше ? Что ты подразумеваешь под "доступом" ?
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2003.08.14;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.043 c