'   Local hFile As Dword,cc As String ,rityAttributes As  SECURITY_ATTRIBUTES ,lpOverlapped As OVERLAPPED 
'   Local fResult As Long 
'   hFile=CreateFile("\\.\mailslot\win\yongfangmem",_  '邮槽名
'                    %GENERIC_WRITE,_                  '可写
'                    %FILE_SHARE_READ,_
'                    rityAttributes,_
'                    %OPEN_EXISTING,_                   '打开一个存在的邮槽，应该是服务端创建
'                    %FILE_ATTRIBUTE_NORMAL,_
'                    0)
'   If hFile<>0 Then
'         cc=FF_Control_GetText(HWND_FORM1_TEXT1)   
'        fResult=WriteFile(hfile,ByVal StrPtr(cc),Len(cc),i,lpOverlapped)
'        CloseHandle hFile
'   End If
''--------------------------------------------------------------------------
'Sub F5_FaSon(hWndForm as HWnd,sText as String  ) '放送给DLL
'   Dim hFile as HANDLE,cc as String 
'   Dim fResult as Long 
'   hFile=CreateFile("\\.\mailslot\win\yongfang1" & hWndForm,_  '邮槽名
'                    GENERIC_WRITE,_                  '可写
'                    FILE_SHARE_READ,_
'                    Null,_
'                    OPEN_EXISTING,_                   '打开一个存在的邮槽，应该是服务端创建
'                    FILE_ATTRIBUTE_NORMAL,_
'                    0)
'   If hFile<>0 Then
'        fResult=WriteFile(hfile,StrPtr(sText),Len(sText),Null,Null)
'        CloseHandle hFile
'   End If
'End Sub
