高手指教：如何得到计算器的数据？

[tccb]

我的程序调用windowsde计算器，当切换回我的程序时，如何得到计算器中的数据？

[tccb]

因为没找到edit，才提问。。。

[nzh517]

用SPY++看了一下,那不是Edit而是Static

[DWGZ]

用FindWindows

[DWGZ]

不好意思打错,FindWindow找到计算器窗体再找到那个Edit,就了

[tccb]

详细过程。。。

[ghostmirror]

......。。。。。。
procedure TForm1.Button2Click(Sender: TObject);
var
h:HWND;
num:pchar;
i:integer;
begin
h:=findWindow(pchar('SciCalc'),nil);

h:=getwindow(h,GW_CHILD);
i:=sendmessage(h,WM_GETTEXTLENGTH,0,0);
showmessage(inttostr(i)); //包括一个空格和一个小数点的长度
getmem(num,i+1);
sendmessage(h,WM_GETTEXT,i+1,integer(num));
showmessage(num);
end;

这个方法可以得到。。。
但是为什么我用getwindowtext或者发送wm_copy消息得到不了呢？奇怪~

[tccb]

为什么用h:=getwindow(h,GW_CHILD);
如果想处理的程序有多个edit和memo等等，如何得到这些子窗口句柄？

[tccb]

thanks...

[34535345345345345345]

var
Handle, ChildHandle: HWND;
clsName: pchar;
text:array[0..255] of char;
begin
getmem(clsName, 255);
Handle := FindWindow(pchar('SciCalc'), nil);
if Handle <> 0 then
begin
ChildHandle := GetWindow(Handle, GW_Child);
while ChildHandle <> 0 do
begin
GetClassName(ChildHandle, clsName, 255);
//showmessage(clsName);
if string(clsName) = 'Static' then
begin
getwindowtext(ChildHandle,text,255);
showmessage(text);
end;
ChildHandle := GetWindow(ChildHandle, GW_HWNDNEXT);
end;
end;
freemem(clsName, 255);
end;