- Код: Выделить всё
uses .... , Sense4Dev;
...
var
frmMain: TfrmMain;
dwRet:DWORD;
dwSize:DWORD;
dwReturned:DWORD;
pstS4Ctx:PSENSE4_CONTEXT;
DongleStruct:PSENSE4_CONTEXT;
....
procedure TfrmMain.Button1Click(Sender: TObject);
var
i,i1: integer;
atr_id:string;
uid_id:string;
ID:array[00..07] of byte;
begin
dwRet := S4_ERROR_UNKNOWN;
dwSize := 0;
pstS4Ctx := nil;
DongleStruct:=PSENSE4_CONTEXT(allocmem(1));
S4Enum(nil, dwSize);
if dwSize = 0 then
Begin
Memo1.Lines.Add('Ни одного ключа не найдено!');
exit;
End;
end;