感谢cowbo回复,我目的是处理消息窗口(这里只是个例子,方便测试),不是只处理这个“安全警报”。
感谢ptvbs回复,当前我使用以下代码可以获得指定窗体标题的窗口,可以获得按钮并点击,但就是不会获得窗体上的提示文字, M:=FindWindow(nil,pAnsiChar(Edit1.text)); //获得指定标题窗体 T:=FindWindowEx(M,0,'Static',nil); //这里我想获得窗体上的所有文本,有时是Static的有多个,需要遍历
L := GetWindowTextLength(T);
SetLength(s,L+1);
GetWindowText(T,PChar(s),L+1);
memo1.Text := s; //这里获得不到窗体上的提示文本 B:=FindWindowEx(M,0,pAnsiChar(Edit3.text),pAnsiChar(Edit2.text)); //获得指定按钮
SendMessage(B,BM_CLICK,0,0); //发送点击信息
//Sendmessage(wnd,WM_CLOSE,0,0); //关闭窗口
请教如何能获得这个信息窗口上的所有提示文本呢?
感谢ptvbs回复,当前我使用以下代码可以获得指定窗体标题的窗口,可以获得按钮并点击,但就是不会获得窗体上的提示文字, M:=FindWindow(nil,pAnsiChar(Edit1.text)); //获得指定标题窗体 T:=FindWindowEx(M,0,'Static',nil); //这里我想获得窗体上的所有文本,有时是Static的有多个,需要遍历
L := GetWindowTextLength(T);
SetLength(s,L+1);
GetWindowText(T,PChar(s),L+1);
memo1.Text := s; //这里获得不到窗体上的提示文本 B:=FindWindowEx(M,0,pAnsiChar(Edit3.text),pAnsiChar(Edit2.text)); //获得指定按钮
SendMessage(B,BM_CLICK,0,0); //发送点击信息
//Sendmessage(wnd,WM_CLOSE,0,0); //关闭窗口
请教如何能获得这个信息窗口上的所有提示文本呢?
T:=FindWindowEx(M,T,'Static',nil);