/实现函数
function GetSelectedText(
h:thandle; //EDIT或RICHEDIT的句柄
Buffer: PChar; //返回获取的选中文本
BufSize: Integer //指定返回的大小
): Integer; //返回实际获取的文本的大小
var