VPF::Как получить хендл приложения из Dll

Teran

Дата 18.11.2006, 23:19 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

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

есть длл подключённая к приложению почему
в приложении

Код


Application.Handle

Код


Library Test;

uses
  SysUtils,
  Windows;

exports
  Test1;

BEGIN
MessageBox(0,Pchar(IntToStr(GetModuleHandle(nil))),'',mb_ok);
END.

получаются разные?
и какая функция в dll покажет такойже Handle как и в приложении

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

Ни цего не понимаю

bems

Дата 19.11.2006, 00:08 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

application.handle это не хэндл модуля, а дескриптор окна, которое влядеет(в смысле системы, а не VCL) формами приложения.

попробуй делать твою строку MessageBox(0,Pchar(IntToStr(GetModuleHandle(nil))),'',mb_ok)
и из библиотеки и из приложения - результат будет одинаковый и совпадет с переменной hInstance (приложения а не длл)

Это сообщение отредактировал(а) bems - 19.11.2006, 01:30

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

Обижено школьников: 8

Teran

Дата 19.11.2006, 01:51 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 590
Регистрация: 9.9.2005
Где: Украина, Запорожь е

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

а как узнать именно "дескриптор окна" приложения из dll? smile

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

Ни цего не понимаю

dumb

Дата 19.11.2006, 02:45 (ссылка)

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

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

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

сделать в dll функцию Init и передавать в нее необходимые параметры.

bems

Дата 19.11.2006, 02:59 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

Код


function GetApplicationHandle:HWND;
var MyPID,WinPID:DWORD;
begin
MyPID:=GetCurrentProcessID;
result:=0;
repeat
 wnd:=FindWindowEx(0,result,'TApplication',nil);
 GetWindowThreadProcessId(result,WinPID);
until (result=0) or (WinPID=MyPID);
end;

Это работает если в твоем процессе нет другого окна с таким именем класса.
Обычно так и есть

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

Обижено школьников: 8

ArtemRubtsov

Дата 24.11.2006, 04:14 (ссылка)

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

Загрузка ...

Новичок

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

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

из приложения

Код


UpdateDll(@Form1.Handle); //external

в длл

Код



interface

procedure UpdateDll(Param : pHandle); stdcall;

var
LocalHandle : THandle;

implementation

procedure UpdateDll(Param : pHandle);stdcall;
begin
LocalHandle := Param^;
...
...
end;


Exports
UpdateDll;

Это сообщение отредактировал(а) ArtemRubtsov - 24.11.2006, 04:18

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