问一个问题，谢谢！！！！

[IWillSaveGod]

一个带滚动条的滚动窗口（类似聊天室窗口），每行显示一条滚动的信息,怎么将所有的信息复制下来，谢谢!

[hottey]

{--- 得到本文框内容 ---}
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;

[IWillSaveGod]

这个我会啊，关键是聊天室窗口是滚动的，上面的编程会造成很多信息重复阿

[IWillSaveGod]

而且这个窗口是在另外一个进程中

[IWillSaveGod]

upppppppppppppppppppppppp

[ghchen]

不会,帮顶

[beyondtkl]

喔。。 那你需要弄清楚 当前显示行的标志 之类的。。
有另外这个进程的一些文档之类的么。。

[123hui]

什么环境，是在一个工程里吗？

[chenqiang_200878]

up