type
    TFilelistItem=record
        dwFileLength:Cardinal;
        dwAttr1,dwAttr2:Word;
        Name:array[0..$1f7] of Char;
    end;
    TP2KApi2Callback=procedure(Status:Integer) stdcall;
    TP2KApi3Callback=procedure(Status:Integer; lpszIFName:PChar) stdcall;
    TP2KApiProgressFunc=procedure(var fl:array of TFileListItem; urIndex,TotalCount:Integer) stdcall;

const
    P2KAPIDLL='p2kapi3.dll';
function P2K_Init(StatusProc:TP2KApi2Callback): Integer; stdcall; external P2KAPIDLL;
function P2K3_Init(StatusProc:TP2KApi3Callback): Integer; stdcall; external P2KAPIDLL;

function P2K_Init(StatusProc:TP2KApi2Callback): Integer; stdcall; external P2KAPIDLL;
function P2K3_Init(StatusProc:TP2KApi3Callback): Integer; stdcall; external P2KAPIDLL;
静态调用'p2kapi3.dll里的P2K_Init和P2K3_Init函数