Delphi读取智能卡数据的测试源码，程序使用了Mwic_32.dll控件，需要读卡器硬件配合，若在没有读卡器的情况下测试程序，可能程序会假死。相关源代码如下： 　　procedureTForm1.Button1Click(Sender:TObject); 　　begin 　　IfOPen_CardThen 　　begin 　　label2.Caption:=Read_Card; 　　IfClose_cardThen 　　begin 　　Exit; 　　end; 　　end; 　　end;