做了个复制到剪切板的程序，那位高手会剪切板操作，看为什么不起作用

tsp_1030

procedure TForm1.Button1Click(Sender: TObject);
var
s:String;
hClip:HWND;
pTextChar; //pch
ocResultongbool;

begin
S:='This is a Clipboard example.';
ocResult:=OpenClipboard(self.Handle);
EmptyClipboard();
hClip:=GlobalAlloc(GMEM_MOVEABLE or GMEM_DDESHARE,Length(S)+4);
PText:=PChar(GlobalLock(hClip));
SendMessage(hClip,WM_COPY,255,Integer(PChar('1234g')));
memcpy(pText,PChar(s),Length(S)+4); //StrCopy(pText,PChar(S));

//edt_send.Text:=pText;
GlobalUnlock(hClip);
SetClipboardData(CF_TEXT,hClip);
//GlobalFree(hClip);
CloseClipboard;

end;

tsp_1030

没人知道吗 自己顶

akingcom

应该给你的窗体注册一个剪贴板查看器，
    Procedure WmDrawClipBoard(Var Message:Tmessage);Message WM_DrawClipBoard; //处理WM_DrawClipBoard消息的过程

脱离剪贴板
  if HwndNextClip <> 0 then ChangeClipBoardChain(self.Handle ,HwndNextClip);


使用这个跟踪你的代码，或者就在消息过程中去实现你的代码吧

ycs

新生借问下：memcpy在哪个头文件里？