var
h:HWND;
c:Array[1..255] of char;
oldhnd:integer;
newhnd:integer;
ReturnValue:boolean;
v_targapp:String;
Begin
v_targapp:='目标应用程序'
oldhnd:=GetForegroundWindow();
newhnd:=FindWindow(nil,targapp);
h:=GetWindow(newhnd,GW_CHILD);
while h<>0 do
begin
if GetWindowText(h,@c,255)>0 then
Form1.Memo1.Lines.Add(StrPas(@c));
h:=GetWindow(h,GW_HWNDNEXT);
End;
我的问题是,可以取得Tlabel控件的caption.我的程序要求读取label中的caption
h:HWND;
c:Array[1..255] of char;
oldhnd:integer;
newhnd:integer;
ReturnValue:boolean;
v_targapp:String;
Begin
v_targapp:='目标应用程序'
oldhnd:=GetForegroundWindow();
newhnd:=FindWindow(nil,targapp);
h:=GetWindow(newhnd,GW_CHILD);
while h<>0 do
begin
if GetWindowText(h,@c,255)>0 then
Form1.Memo1.Lines.Add(StrPas(@c));
h:=GetWindow(h,GW_HWNDNEXT);
End;
我的问题是,可以取得Tlabel控件的caption.我的程序要求读取label中的caption
label不是窗口,没有handle