Delphi 7 获取窗口文本的例子,只要是当前窗口中的内容,都可以获取到,可能会比较乱,获取的过程被封装在按钮事件中,当用户点击后,执行事件中规定的命令:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
H_window:HWND;
Text:array[0..255] of char;
begin
H_window:=GetWindow(Handle,GW_HWNDFIRST);
While H_window<>0 do
begin
if GETWindowText(H_window,@text,255)>0 then
memo1.Lines.Add(StrPas(@Text));
H_window:=GetWindow(H_Window,GW_HWNDNEXT);
end;
end;
1