VPF::внедрение Dll и Open/SaveDialog - Форум программистов

lu0

Дата 7.9.2006, 09:17 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 23.8.2006

Репутация: нет
Всего: нет

Проблема с вызовом Open/SaveDialog.
Ситуация такая:
- родительская программа запускает другую в suspended режиме и внедряет в неё dll.
выглядит внедрение так:

Код


function Hoook(DLL:String):Boolean;
var
  Memory,LoadL:Pointer;
  hThread,TID:THANDLE;
  DLLSize,Written:dword;
begin
  Result:=False;
  try
    DLLSize:=Length(DLL)+2;
    Memory:=VirtualAllocEx(PROCESS.hProcess,Nil,DLLSize,MEM_COMMIT or MEM_RESERVE,PAGE_READWRITE);
    If Memory=Nil
    then Exit;
    If not WriteProcessMemory(PROCESS.hProcess,Memory,PChar(DLL),DLLSize,Written)
    then Exit;
    LoadL:=GetProcAddress(GetModuleHandle('Kernel32'),'LoadLibraryA');
    hThread:=CreateRemoteThread(PROCESS.hProcess,Nil,0,LoadL,Memory,0,TID);
    If hThread=0
    then Exit;
    WaitForSingleObject(hThread,INFINITE);
    Result:=True;

код практически один-в-один из примера Рихтера
после чего в вызываемой проге перестают работать диалоги Open/SaveDialog.

может кто скажет чего?

RideX

Дата 7.9.2006, 09:29 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Awaiting Authorisation
Сообщений: 94
Регистрация: 8.9.2004

Репутация: 2
Всего: 7

Попробуй сделать по другому:
• В импорт другой программы пропиши свою DLL

или

• В другой программе с EntryPoint сделай переход на свой участок кода, который можно записать в свободном месте между секциями (т.к. присутствует выравнивание секций), или в дополнительную секцию, если места нет. Там сделай вызов LoadLibrary своей DLL, т.е. загрузи её динамически, выполни затёртые команды с EP и передай управление обратно на ориг. код.

Alexeis

Дата 7.9.2006, 11:01 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 16
Всего: 459

lu0, может dll сама что-то блокирует. Пробовал загружать пустую dll (минимальный проект) smile

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

lu0

Дата 7.9.2006, 12:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 23.8.2006

Репутация: нет
Всего: нет

Цитата(RideX @ 7.9.2006, 09:29)

• В импорт другой программы пропиши свою DLL
• В другой программе с EntryPoint сделай переход на свой участок кода, который можно записать

чужой код трогать не хотелось бы

Цитата(alexeis1)

lu0, может dll сама что-то блокирует. Пробовал загружать пустую dll (минимальный проект)

пробовал

более того если внедрять через создание треда и переключение контекста основного треда, то проблемы нет

lu0

Дата 8.9.2006, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 3
Регистрация: 23.8.2006

Репутация: нет
Всего: нет

После анализа разных метедов внедрения проблема поборена
Кака была в запуске дочерней проги в <B>суспендеде</B>

всем спасибо.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »