|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
sy0116 (sy0116) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/10/20 22:25:29 |
标题: |
这一段怎么不对,不能实现我要的功能 |
浏览:1563 |
|
加入我的收藏 |
楼主: |
var hwnd,h,hMemo:longint; txt:string; begin txt:='与 '+edit2.text+' 聊天中'; hwnd:=FindWindow(nil,pchar(txt)); hmemo:=FindWindowEx(hwnd,0,'richedit','); h:=FindWindowEx(hwnd,0,nil,pchar('发送(&S)')); edit1.Text:=inttostr(h); edit2.text:=inttostr(hmemo); SendMessage(hmemo, WM_SETTEXT, 0, longint(LPSTR(txt)));
----------------------------------------------
- |
作者: |
cnxxx (我本高手) |
★☆☆☆☆ |
-
|
盒子活跃会员 |
|
2003/10/20 22:30:49 |
1楼: |
自动QQ聊天?
你看看那几个函数的帮助,问我我也是看帮助。
----------------------------------------------
黑夜中,一眼望去,我就是高手。
|
|