TDllFunction = function (argv:Pchar):integer;stdcall;
...
var
LibAddr:THandle;
OpenFunc:TDllFunction;
...
procedure InitSSLVPNLib;
begin
LibAddr:=LoadLibrary(Pchar(OPENVPNDLL));
if LibAddr<>0 then
@OpenFunc:=GetProcAddress(LibAddr,'open_vpn');
end;
TDllFunction = function (argv:Pchar):integer;stdcall;
...
var
LibAddr:THandle;
OpenFunc:TDllFunction;
...
procedure InitSSLVPNLib;
begin
LibAddr:=LoadLibrary(Pchar(OPENVPNDLL));
if LibAddr<>0 then
@OpenFunc:=GetProcAddress(LibAddr,'open_vpn');
end;