SendMessage 向文本框發送內容和回車事件

 

 

var

Ret: LongInt;
mText: PChar;
Buf: Integer;

sCode:string;

begin

sCode:='123213123';

GetMem(mText, Length(sCode));
StrCopy(mText, PChar(sCode));
Buf := LongInt(mText);
SendMessage(hand,WM_SETTEXT,0,Buf); //向主界面的文本框發送商品條碼

PostMessage(hand, WM_KEYDOWN,VK_RETURN,0);//回車事件
PostMessage(hand, WM_KEYUP,VK_RETURN,0);

 

end;