关于一个多重查询的开发？需要用到记录剪切板该怎么做呢？？？？？

Question

关于一个多重查询的开发？需要用到记录剪切板该怎么做呢？？？？？

Answer 1

{--- 取得剪切板的文本　---}
function GetClipText(hwd: HWND):string;
var
  hGlobal: HWND;
  pText,pGlobal: Pchar;
  Msg: string;
begin
  OpenClipboard(0);
  hGlobal := GetClipboardData(CF_TEXT);
  GetMem(pText, GlobalSize(hGlobal));
  pGlobal := GlobalLock(hGlobal);
  strpcopy(pText, pGlobal);
  GlobalUnlock(hGlobal);
  Msg := String(pText);
  FreeMem(pText);
  result := Msg;
  CloseClipboard();
end;