H
huawdg
Unregistered / Unconfirmed
GUEST, unregistred user!
下列问题无人作答，请问如何了结？
在MyDLL.DLL中，export了一个函数类型的变量DLLProcVar，可以如下动态使用：
var
AHandle:THandle;
DLLProcVar
rocedure (AValue:Integer);
procedure Proc1(AValue:Integer);
begin
//
end;
procedure TForm1.FormCreate(Sender:TObject);
begin
if AHandle=0 then
begin
AHandle:=LoadLibrary('MyDLL.DLL');
@DLLProcVar:=GetProcAddress(AHandle,'DLLProcVar');
Pointer((@DLLProcVar)^):=@Proc1;
end;
end;
但我不知道该如何象函数一样静态使用。
就象：
procedure AProc external 'mydll.dll' name 'AProc';
一样。
在MyDLL.DLL中，export了一个函数类型的变量DLLProcVar，可以如下动态使用：
var
AHandle:THandle;
DLLProcVar
rocedure (AValue:Integer);procedure Proc1(AValue:Integer);
begin
//
end;
procedure TForm1.FormCreate(Sender:TObject);
begin
if AHandle=0 then
begin
AHandle:=LoadLibrary('MyDLL.DLL');
@DLLProcVar:=GetProcAddress(AHandle,'DLLProcVar');
Pointer((@DLLProcVar)^):=@Proc1;
end;
end;
但我不知道该如何象函数一样静态使用。
就象：
procedure AProc external 'mydll.dll' name 'AProc';
一样。