GetProcAddress

GetProcAddress ( somemodule, somefuction )

Tazi funkciq wrusta pointer.
Kak da izpolzwam somefunction w Delphi?
Primerno

var p: pointer;
p:=GetProcAddress(somemodule, somefuction );
i togawa p^(...) ne wurwi .
Dawa oleneznamkakwasi Error.

Ima li specialen nachin za izpolzwaneto i ?

procedure TForm1.Button1Click(Sender: TObject);
type
TMessBox = procedure(A: Integer); stdcall;
var
PMess: TMessBox;
hLib: THandle;
begin
hLib := LoadLibrary('Project2.Dll');
if hLib <> 0 then
try
PMess := GetProcAddress(hLib, 'Edit');
PMess(10)
finally
FreeLibrary(hLib);
end;
end;