文件名称：Delphi 7 获取窗口文本的例子.rar
文件大小：6KB
文件格式：RAR
更新时间：2022-07-30 04:25:26
Delphi源码-界面编程
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;
【文件预览】：
codesc.net
----获取窗口文本()
--------Project1.res(876B)
--------Unit1.dfm(677B)
--------Project1.cfg(434B)
--------Unit1.pas(792B)
--------Project1.dpr(188B)
--------Project1.dof(2KB)
--------Unit1.dcu(4KB)