' Declare functions from the winscard.dll
 
Declare Function SCardEstablishContext Lib "winscard.dll" _
(ByVal dwScope As Long, ByVal pvReserved1 As Long,  _
ByVal pvReserved2 As Long, ByRef hcontext As Long) As Long
 
Declare Function SCardListReadersA Lib "winscard.dll" _
(ByVal hcontext As Long, ByVal mszGroups As String, _
ByVal mszReaders As String, ByRef lLenResponse As Long) As Long
 
Declare Function SCardConnectA Lib "winscard.dll" _
(ByVal hcontext As Long, ByVal szReader As String, _
ByVal dwShareMode As Long, ByVal dwPreferredProtocols As Long, _
ByRef phCard As Long, ByRef pdwActiveProtocol As Long) As Long
 
Declare Function SCardTransmit Lib "winscard.dll" _
(ByVal hCard As Long, ByVal pioSendpci As Long, _
ByVal pbSendBuffer As String, ByVal cbSendLength As Long, _
ByVal poiRecvpci As Long, ByVal pbRecvBuffer As String, _
ByRef pcbRecvLength As Long) As Long
 
Declare Function SCardDisconnect Lib "winscard.dll" _
(ByVal hCard As Long, ByVal dwDisposition As Long) As Long
 
Declare Function SCardReleaseContext Lib "winscard.dll" _
(ByVal hcontext As Long) As Long

viele gr?sse
petra