' Local hSlot,fResult,cb,cm,ca As Dword,yc As SECURITY_ATTRIBUTES,cc As String,lpOverlapped As OVERLAPPED    '邮槽句柄
'    '获取邮槽信息，
'    fResult=GetMailslotInfo(hSlot, _  '句柄
'                            0,_       '无最大消息限制
'                            cb,_      '下一条消息的大小
'                            cm,_      '消息数量
'                            0)        '无限时
'    If fResult>0 And cm>0 Then
'        cc=String(cb,0)
'        fResult=ReadFile( hSlot,ByVal StrPtr(cc),cb,ca,lpOverlapped)    
'                         '句柄  cb 消息长度 ca 实限读取的长度
'        If fResult>0 Then
'            FF_ListBox_AddString HWND_FORM1_LIST1,Str(cb) & Str(ca) & "  " & cc    
'        End If
'    End If
