VPF::Не могу найти форму через DLL - Форум программистов

fridkaratel

Дата 5.11.2007, 18:06 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 221
Регистрация: 22.10.2007
Где: Error connect to MySQL Da...

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

Не могу найти форму в программе через DLL.
Что делаю:
1. Подключаю к сторонней программе мою DLL
2. Пытаюсь найти форму в приложении, чтобы работать с компонентами на форме

О программе:
1. Не моя
2. Запакована
3. Через InqSoft WindowScanner (можно и Spy++) получил:
а) Заголовок: Alpha Community Center
б) Класс: TAlpha_Form

Ход действий:
Вот код моей DLL

Код


#include <vcl.h>
#include <windows.h>
//------------------------------------------------------------------------------
#pragma argsused
//------------------------------------------------------------------------------
TForm *Alpha_Form = NULL;
//------------------------------------------------------------------------------
void Init()
{
//  ShowMessage("Initializing...");
  TForm **pForm = (TForm**)GetProcAddress(GetModuleHandle(NULL), "_Alpha_Form");
  if(pForm != NULL)
  {
    ShowMessage("Form finded!");
    Alpha_Form = *pForm;
    if(Alpha_Form != NULL)
    {
      //  Любые действия
    }
  }
}
//------------------------------------------------------------------------------
int WINAPI DllEntryPoint(HINSTANCE hinst, unsigned long reason, void* lpReserved)
{
  switch(reason)
  {
    case DLL_PROCESS_ATTACH:
//      ShowMessage("CONNECTED");
      Init();
      break;
  }
  return 1;
}
//------------------------------------------------------------------------------

Не знаю почему не работает здесь, но такой код успешно работает при использовании в моих программах, а также в других - короче, во всех (хотя на всех не проверял smile

), кроме этой...

Помогите и подскажите, что делать-то?

586

Дата 5.11.2007, 19:02 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

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

Цитата(fridkaratel @ 5.11.2007, 18:06

)

3. Через InqSoft WindowScanner (можно и Spy++) получил:
а) Заголовок: Alpha Community Center
б) Класс: TAlpha_Form

Для приведённого выше кода нужно анализировать таблицу экспорта, а не заголовок/класс окна.

586

Дата 7.11.2007, 17:30 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

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

Я слышал, что можно искать компоненты с помощью ф-ции GetProp. Вот что у меня получилось:

Поиск компонентов по дескрипторам окон:

Код

TWinControl* GetComponent(HWND hWnd)
{
    char b[32];
    sprintf(b, "Delphi%.8X", GetCurrentProcessId());
    return (TWinControl*)GetProp(hWnd, b);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TForm *f=(TForm*)::GetComponent(Form1->Handle);
  TButton *b=(TButton*)::GetComponent(Form1->Button1->Handle);

  if(f) f->Caption="xa xa xa";
  if(b) b->Caption="xe xe xe";
}

fridkaratel

Дата 8.11.2007, 18:03 (ссылка)

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

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 221
Регистрация: 22.10.2007
Где: Error connect to MySQL Da...

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

большое спасибо! все работает ;)

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