关于获取窗口文本

求助：关于获取窗口文本
请教大虾，下面的程序是什么意思，能否帮我解释一下，看不太懂
implementation

{$R *.dfm}
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;
end. 窗口
[解决办法]
找窗口，然后获得文本
[解决办法]

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 //获得窗口文本，如果其长度>0则：
       memo1.Lines.Add(Strpas(@Text));          //加入到Memo中
    H_window:=GetWindow(H_Window,GW_HWNDNEXT);  //获得下一个窗口句柄
  end;
end;