Procedure ReadClipboardasHTML >> >> Local lcString, lcCF, lnH, lnLen, lxPtr >> >> Declare Long GlobalLock In Win32API Long Hmem >> Declare Long GlobalUnlock In Win32API Long Hmem >> Declare Long GlobalSize In Win32API Long Hmem >> Declare String lstrcpy In Win32API String @ lpDest, Long lpSrc >> Declare Long OpenClipboard In Win32API Long >> Declare Long CloseClipboard In Win32API >> Declare Long RegisterClipboardFormat In Win32API String >> Declare Long GetClipboardData In Win32API Long uFormat >> >> lcString = "" >> * lcCF = RegisterClipboardFormat ("Rich Text Format") >> lcCF = RegisterClipboardFormat ("HTML Format") >> If (OpenClipboard (0) != 0) >> lnH = GetClipboardData (lcCF) >> If lnH > 0 >> lnLen = GlobalSize (lnH) >> lcString = Replicate (Chr (0), lnLen) >> lxPtr = GlobalLock (lnH) >> lstrcpy (@lcString, lxPtr) >> lcString = Left (lcString, lnLen-1) >> GlobalUnlock (lnH) >> Endif >> CloseClipboard () >> Endif >> >> Return Substr (lcString, At ("<", lcString)) >> >>Endproc >>>>