Delphi7获取窗口文本的例子，只要是当前窗口中的内容，都可以获取到，可能会比较乱，获取的过程被封装在按钮事件中，当用户点击后，执行事件中规定的命令： procedureTForm1.BitBtn1Click(Sender:TObject); var H_window:HWND; Text:array[0..255]ofchar; begin H_window:=GetWindow(Handle,GW_HWNDFIRST); WhileH_window0do begin ifGETWindowText(H_window,@text,255)>0then
