[denisivc]

Добрый день.
Начальство дало наказ внедрить проверку пин etoken в наших программах.
Начал разбираться с PKCS#11.
НО не все получается.
Хочу для начала прочитать данные библиотеки

вопрос
хочу прочитать данные библиотеки, но выдается белибирда.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43

procedure TForm1.Button1Click(Sender: TObject); type   CK_C_Initialize1 = ^C_Initialize;   CK_C_Finalize1 = ^C_Finalize;   CK_C_GetInfo1 = ^C_GetInfo;   CK_C_GetFunctionList1 = ^C_GetFunctionList;   var   Init:  CK_C_Initialize1;   Fin:   CK_C_Finalize1;   GInfo: CK_C_GetInfo1;   GetFuncList : CK_C_GetFunctionList1;     DLLETOKEN : THandle;   Init1 : CK_INFO;   begin   //загружаем DLL-ку    DLLETOKEN := LoadLibrary(PChar('eTpkcs11.dll'));    //загрузилась ли...      if (DLLETOKEN = 0) then begin     MessageDlg('Невозможно загрузить DLL', mtError, [mbOK], 0);     Exit;    end;      Init:= GetProcAddress(DLLETOKEN,'C_Initialize');    Fin:=  GetProcAddress(DLLETOKEN,'C_Finalize');    GInfo := GetProcAddress(DLLETOKEN,'C_GetInfo');      GetFuncList := GetProcAddress(DLLETOKEN,'C_GetFunctionList');    if Assigned(Init) then    begin      Label1.Caption:= Inttostr(Init1.cryptokiVersion.major);      Label2.Caption:= InttoStr(Init1.cryptokiVersion.minor);      label3.Caption:= InttoStr(init1.libraryVersion.major);      label4.Caption:= InttoStr(init1.libraryVersion.minor);      end;

Админ: Пользуемся тегами для оформления кода!

надо как то по идее связать FIN и Init1. но как?