请各位高手帮忙啊!GETWINDOWTEXT的问题
运行金山词霸时,我想取得金山词霸的翻译结果:写了以下代码:
myXWndClass是金山词霸的翻译窗口。
procedure TForm1.Button1Click(Sender: TObject);
var t1:THANDLE;
s:pchar;
y:integer;
begin
t1:=FindWindow('myXWndClass',nil);
y:=GetWindowTextLength(t1);
getwindowtext(t1,s,y);
end;
设了一个断点,发现S总为空,查了一下WINDOWS API,说是如果窗口没有标题条,
getwindowtext就不能取得文本。但是我通过SPY观察了这个窗口,发现SPY的
WINDOW CAPTION 就能显示结果,而且还可以随翻译结果的变化而变化。不知道
是我程序有错,还是方法不对?请高手指点一二!多谢谢谢谢了!