'´Ó Windows ¼ôÌù°åÖÐ¼ìË÷ÎÄ±¾×Ö·û´®¡£
'Dim sText As String 
'sText = FF_ClipboardGetText()
Function FF_ClipboardGetText() As String
   
   Dim As ZString Ptr s_ptr
   Dim As HANDLE hglb
   Dim As String s = ""
   
   If (IsClipboardFormatAvailable(CF_TEXT) = 0) Then
      Return ""
   End If
   
   If OpenClipboard(Null) <> 0 Then
      hglb = GetClipboardData(cf_text)
      s_ptr = GlobalLock(hglb)
      
      If (s_ptr <> Null) Then
         s = *s_ptr
         GlobalUnlock(hglb)
      End If
      
      CloseClipboard()
   End If
   
   Return s
   
End Function
