截取粘贴消息并修改粘贴的内容

TEdit = class(StdCtrls.TEdit)

protected

procedure WndProc(var Message: TMessage); override;

end;

procedure TEdit.WndProc(var Message: TMessage);

var

hClip: THandle;

pBuf, lBuf, gBuf: PChar;

C: Char;

begin

if Message.Msg = WM_PASTE then

begin

OpenClipboard(Handle);

if IsClipboardFormatAvailable(CF_TEXT) then

begin

hClip := GetClipboardData(CF_TEXT);

pBuf := GlobalLock(hClip);

GetMem(lBuf, Length(pBuf));

StrCopy(lBuf, pBuf);

GlobalUnlock(hClip);

EmptyClipboard; //ShowMessage(lBuf);

//改变某些字符

pBuf := lBuf;

C := pBuf^;

while C <> #0 do

begin

if C = #51 then

pBuf^ := Char(#65);

Inc(pBuf);

C := pBuf^;

end;

//end 改变某些字符

hClip := GlobalAlloc(GMEM_MOVEABLE, StrLen(lBuf) + 1);

gBuf := GlobalLock(hClip);

StrCopy(gBuf, lBuf);

FreeMem(lBuf);

GlobalUnlock(hClip);

SetClipboardData(CF_TEXT,hClip);

end;

CloseClipboard;

end;

inherited;

end;