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