已删除 - TC官方合作论坛

变量句柄=数组()
功能调试输出窗口_初始化()
句柄[0]=进程打开("rc:Pr.exe")
进程等待初始化(句柄[0],1000)
句柄[1]=枚举窗口("TForm1",1)//BUG1:此处按照窗口类名枚举窗口可能枚举到多个,造成冲突,建议写winapi,枚举进程ID下的窗口句柄.
while(句柄[1]==0)
句柄[1]=枚举窗口("TForm1",1)
end
句柄[2]=枚举窗口(句柄[1],3)
窗口发送消息(句柄[2],207,-1,0)//用户只读,不可编辑
窗口设置位置(句柄[1],6,9)
窗口设置大小(句柄[1],400,200)
var 宽,高
窗口获取客户区(句柄[1],0,0,宽,高)
窗口设置大小(句柄[2],宽,高)
窗口设置标题(句柄[1],窗口获取标题(窗口获取自我句柄()))
窗口置顶(窗口获取自我句柄(),真)
结束
功能调试输出窗口_销毁()
windowpostmessage(句柄[1],16,0,0)
结束
功能输出(内容)
var len=dllcall("user32.dll","int","SendMessageW","int",句柄[2],"int",14,"int",0,"int",0)//取原长度
var temp=""//BUG2:此处建议单独分配内存存放原编辑框内容,tc貌似因为Buffer太小的原因输出多了总崩溃
dllcall("user32.dll","int","SendMessageW","int",句柄[2],"int",13,"int",len+1,"pwchar *",temp)//获取编辑框原来的内容
dllcall("user32.dll","int","SendMessageW","int",句柄[2],"int",12,"int",0,"wchar *",temp&内容&"\r\n")//设置新的
dllcall("user32.dll","int","SendMessageW","int",句柄[2],"int",177,"int",len,"int",len+strlen(内容))//选中最后输出的一条方便复制
dllcall("user32.dll","int","SendMessageW","int",句柄[2],"int",277,"int",7,"int",0)//滚动到最后一行
窗口设置焦点(句柄[1])
结束

复制代码

变量全_调试 = 数组()
功能调试输出窗口_初始化()
全_调试["进程"] = 进程打开("rc:Pr.exe")
如果(进程等待初始化(全_调试["进程"],1000) != 0)
消息框("创建调试窗口进程失败")
否则
变量局_宽,局_高,局_句柄 = 枚举窗口("TForm1",1)
如果(是否整型(局_句柄))
变量局_标题 = 窗口获取标题(窗口获取自我句柄())
全_调试["窗口"] = 窗口查找子窗口(局_句柄,"","TMemo")
窗口发送消息(全_调试["窗口"],207,1,0) //用户只读,不可编辑 EM_SETREADONLY
窗口发送消息(全_调试["窗口"],197,-1,0) //设置最大长度避免溢出 EM_SETLIMITTEXT
窗口设置大小(局_句柄,400,200)
窗口获取客户区(局_句柄,0,0,局_宽,局_高)
窗口设置大小(全_调试["窗口"],局_宽,局_高)
窗口设置标题(局_句柄,局_标题)
窗口置顶(窗口获取自我句柄(),真)
否则
消息框("有未关闭的调试窗口")
结束
结束
结束
功能调试输出窗口_销毁()
进程关闭(全_调试["进程"])
结束
功能输出(内容)
窗口发送消息(全_调试["窗口"],177,-2,-1) //EM_SETSEL
窗口发送消息(全_调试["窗口"],194,0,内容 & "\r\n") //EM_REPLACESEL
结束

复制代码