EnumWindow 很早前就试过了。同样没有无法取到 applet 内的edit 的内容。而仅找到
叫 MSAWT_Comp_Class 的类,无法找到xiaojun 说的SumAwtFrame
这是我的代码:
function EnumWindowsProc(AhWnd:longint;aform:tform1):boolean;
var
lpszclassname,lpszwindowtext :array[0..255] of char ;
s : string ;
begin
getwindowtext(ahwnd,lpszwindowtext,254);
getclassname(ahwnd,lpszclassname,254);
s := strpas(lpszclassname);
form1.memo1.lines.add('标题:'+strpas(lpszwindowtext));
form1.memo1.lines.add('类名:'+s);
form1.memo1.Lines.add('----------------------');
result := true ;
end;
procedure TForm1.Button3Click(Sender: TObject);
VAR
hwndIE,hwndworker,hwndtoolbar,hwndcomboboxex,hwndcombo,hwndedit : longint ;
buffer : array [0..254] of char ;
i : integer ;
begin
memo1.lines.clear;
hwndIE := FindWindow('ieframe',nil);
EnumChildWindows(hwndIE,@EnumWindowsProc,longint(TForm1));
EnumChildWindows(a,@EnumtClienWindowsProc,longint(TForm1));
end;