4869
社区成员
- 全部
- 语言基础/算法/系统设计
- 数据库相关
- 图形处理/多媒体
- 网络通信/分布式开发
- VCL组件开发及应用
- Windows SDK/API
- 问答
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
chenqiang_200878 2004-10-26
up
123hui 2004-10-26
什么环境，是在一个工程里吗？
beyondtkl 2004-10-26
喔。。 那你需要弄清楚 当前显示行的标志 之类的。。
有另外这个进程的一些文档之类的么。。
有另外这个进程的一些文档之类的么。。
ghchen 2004-10-26
不会,帮顶
IWillSaveGod 2004-10-26
upppppppppppppppppppppppp
IWillSaveGod 2004-10-25
而且这个窗口是在另外一个进程中
IWillSaveGod 2004-10-25
这个我会啊，关键是聊天室窗口是滚动的，上面的编程会造成很多信息重复阿
hottey 2004-10-25
{--- 得到本文框内容 ---}
function GetText(hwd: HWND):String;
var
Ret: LongInt;
Text: PChar;
Buf: integer;
begin
result := '';
GetMem(Text,1024*100);
if (hwd <> 0) then
begin
try
Ret := SendMessage(hwd, WM_GETTEXTLENGTH, 0, 0)+1;
if Ret > 1 then
begin
Buf := LongInt(Text);
SendMessage(hwd, WM_GETTEXT, Min(Ret, 1024*100), Buf);
result := String(Text);
end;
finally
FreeMem(Text);
end;
end else
exit;
end;
function GetText(hwd: HWND):String;
var
Ret: LongInt;
Text: PChar;
Buf: integer;
begin
result := '';
GetMem(Text,1024*100);
if (hwd <> 0) then
begin
try
Ret := SendMessage(hwd, WM_GETTEXTLENGTH, 0, 0)+1;
if Ret > 1 then
begin
Buf := LongInt(Text);
SendMessage(hwd, WM_GETTEXT, Min(Ret, 1024*100), Buf);
result := String(Text);
end;
finally
FreeMem(Text);
end;
end else
exit;
end;
