这叫外挂? 这个应该是不难做到的 用FindWindowEx函数就可以了:uses shellapi; var PHandle,childHandle : THandle; begin PHandle := FindWindow('','计算器'); if PHandle<>0 then begin childHandle := FindWindowEx(PHandle,'','aaa','');//假设类名为aaa,可以用SPY++去查一下看 if childHandle <> 0 then sendmessage(childhandle,WM_SETTEXT,0,'text topic');//text topic就是内容 end; end;
这个应该是不难做到的
用FindWindowEx函数就可以了:uses shellapi;
var
PHandle,childHandle : THandle;
begin
PHandle := FindWindow('','计算器');
if PHandle<>0 then
begin
childHandle := FindWindowEx(PHandle,'','aaa','');//假设类名为aaa,可以用SPY++去查一下看
if childHandle <> 0 then
sendmessage(childhandle,WM_SETTEXT,0,'text topic');//text topic就是内容
end;
end;