[gadmaker]

Здравствуйте! Помогите разобраться: известен адрес функции программы (формата "6527460" по всей видимости тип integer, параметры функции тоже известны. Как её вызвать из DLL которая подгружена к данной программе?

[NumLock]

Так же как и с GetProcAddress вызываешь.

[gadmaker]

Не пойму как точнее это сделать:

Код:

type
TFunc = function(connection_str : string; id : integer) : integer;
...
var
mFunc: TFunc;
dllInstance := LoadLibrary(dllName); // Здесь что нужно, наименование *.exe исполняемого файла писать?
funcName := ??? // К чему приравнивать? У меня Integer адрес функции.
@mFunc:= GetProcAddress(dllInstance, funcName);
...
mFunc('connstr', 123);

[M.A.D.M.A.N.]

Сообщение от gadmaker

Не пойму как точнее это сделать:

Код:

type
TFunc = function(connection_str : string; id : integer) : integer;
...
var
mFunc: TFunc;
dllInstance := LoadLibrary(dllName); // Здесь что нужно, наименование *.exe исполняемого файла писать?
funcName := ??? // К чему приравнивать? У меня Integer адрес функции.
@mFunc:= GetProcAddress(dllInstance, funcName);
...
mFunc('connstr', 123);

Код:

mFunc:= GetProcAddress(dllInstance, funcName);

[NumLock]

вариант 1

Код:

function ShowMessage(const Msg: string): Integer;
begin
  Result:=MessageBox(0, PChar(Msg), 'ShowMessage', MB_OKCANCEL or MB_ICONINFORMATION);
end;

type
  TShowMessage = function(const Msg: string): Integer;
var
  p: Cardinal;
  f: TShowMessage;
begin
  p:=Cardinal(@ShowMessage); (* получим адрес функции ShowMessage *)
  Caption:=IntToStr(p); (* дабы убедиться что это обычное целое число *)
  @f:=Pointer(p); (* дабавим маны *)
  f('Ok'); (* собственно вызываем функцию с параметром *)
end;

вариант 2

Код:

type
  TF = function (hWnd: HWND; lpText, lpCaption: PWideChar; uType: UINT): Integer; stdcall;
var
  h: HMODULE;
  f: TF;
begin
  h:=LoadLibrary('user32.dll');
  @f:=GetProcAddress(h, 'MessageBoxW');
  f(Handle, 'Ok', 'MessageBoxW', MB_OK or MB_ICONQUESTION);
end;