AddressOf 在DELPHI里怎么做

Question

VB代码
Private Sub btnScanExec_Click()

    'Call set event function
    sts = AplIFEntryEventFunc(AddressOf PageEndProc, 0, errNo)   //调用函数

End Sub
下面是回调函数
Function PageEndProc(pScanInfo As SCAN_PAGEINFO) As Long

End Function
这个在DELPHI里该怎么写

Answer 1

Function PageEndProc(pScanInfo : SCAN_PAGEINFO) : integer;
begin
end;

Answer 2

我是说调用的这句该怎么写
sts = AplIFEntryEventFunc(AddressOf PageEndProc, 0, errNo)  //调用函数 

Answer 3

AplIFEntryEventFunc(@PageEndProc, 0, errNo)  //调用函数 

Answer 4

使用@ 取地址。。如下：
sts = AplIFEntryEventFunc(@PageEndProc, 0, errNo)