怎么获取一个窗体的Caption？
这个窗口的Caption是动态变化的。但是确定有‘ABCD’这个四个字符。他变化时只是在后面加随机的空格。看大家怎么取得该窗口的句柄！

[解决办法]
procedure TForm1.Button1Click(Sender: TObject);
var
NextHandle: Hwnd;
NextTitle: array[0..260] of char;
begin

NextHandle := GetWindow(Application.Handle, GW_HWNDFIRST);
while NextHandle > 0 do
begin

if IsWindowVisible(NextHandle) then
begin
GetWindowText(NextHandle, NextTitle, 255);
Memo1.Lines.Add(StrPas(NextTitle));
end;
// Get the next window
NextHandle := GetWindow(NextHandle, GW_HWNDNEXT);
end;
end;