看原代码吧<br>procedure TClipboard.SetAsHandle(Format: Word; Value: THandle);<br>begin<br> Open;<br> try<br> Adding;<br> SetClipboardData(Format, Value);<br> finally<br> Close;<br> end;<br>end;<br> 定义变量为Word类型就可以了。<br><br>