Delphi 7 获取窗口文本的例子.rar

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