请教一个简单的函数声明，请看内容，在线，马上结分

Question

epas_CreateContext
EPAS_HANDLE* hContextHandle,      // [out]
    unsigned long ulFlags,            // [in]
    unsigned long ulApiVersion        //[in]
调用 epas_CreateContext 返回一个上下文的句柄。这个上下文是作为保存句柄时使用的。
Requirement这个函数必须最先调用。
Parameters
hContextHandle 
[out]指向设备句柄的上下文的指针。 
ulFlags 
[in]为将来扩展保留的。设为零。
ulApiVersion 
[in]这个参数是库版本。设为宏 EPAS_API_VERSION. 
C语言中变量声明
#define EPAS_API_VERSION    0x200
#define EPAS_OPEN_FIRST             0x00000001

Answer 1

var
  Form1: TForm1;
  function epas_CreateContext(hContextHandle:THandle;ulFlags:LongInt;ulApiVersion:LongInt):LongInt;stdcall;external 'ePassNDapi.dll';
  function epas_OpenDevice(hContextHandle:THandle;ulFlags:LongInt;pAppID:LongInt):LongInt;stdcall;external 'ePassNDapi.dll';
  function epas_CloseDevice(hContextHandle:THandle):LongInt;stdcall;external 'ePassNDapi.dll';
  Const EPAS_API_VERSION = $200;
  Const EPAS_OPEN_FIRST = $1;
implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var Contex:Thandle;
    ret:longint;
begin
    ret:=epas_CreateContext(Contex,0,EPAS_API_VERSION);
    showmessage(inttostr(ret));
    ret := epas_OpenDevice(Contex,0,EPAS_OPEN_FIRST);
    showmessage(inttostr(ret));
end;我这样加载dll文件对不对啊

Answer 2

Const EPAS_API_VERSION = $200;
Const EPAS_OPEN_FIRST = $1;
v
ar
  Form1: TForm1;
  
  
implementationfunction epas_CreateContext(hContextHandle:THandle;ulFlags:LongInt;ulApiVersion:LongInt):LongInt;stdcall;external 'ePassNDapi.dll';
  function epas_OpenDevice(hContextHandle:THandle;ulFlags:LongInt;pAppID:LongInt):LongInt;stdcall;external 'ePassNDapi.dll';
  function epas_CloseDevice(hContextHandle:THandle):LongInt;stdcall;external 'ePassNDapi.dll';