你不是已经找到了主窗口的 handle ,
其实编辑框就是主窗口的“子窗口”。
用 EnumChildWindows
也可用 getwindow(handle,GW_CHILD)
以下是参考代码:
查阅可视窗口标题
下面只是举出一个例子提供参考:运用API函数GetWindow()配合GetWindowText()逐一查出各视窗的标题
1. File | New Project 开始一个新的工程
2. 在 Form1 中安排 Button 与 Memo 各一
3. 在 Button1 的 OnClick 事件中撰写程式如下:
procedure TForm1.Button1Click(Sender: Tobject);
var
hCurrentWindow: HWnd;
szText: array[0..254] of char;
begin
hCurrentWindow := GetWindow(Handle, GW_HWNDFIRST);
while hCurrentWindow <> 0 do
begin
if GetWindowText(hCurrentWindow, @szText, 255)>0
then Memo1.Lines.Add(StrPas(@szText));
hCurrentWindow:=
GetWindow(hCurrentWindow, GW_HWNDNEXT);
end;
end;