如何获取别的窗口的标题

Question

请问如何获取一个窗口的标题
例如QQ,与XXX聊天中,如何获取这个窗口的标题
已经能获取窗口句柄,但不知道怎么获取标题
API的GetWindowText 能用吗?
看了一下函数原型,第2个参数我不会设置,说是什么缓存指针
请高手赐教

Answer 1

给你个例子吧:procedure TForm1.Button1Click(Sender: TObject);
var
  sWindowText : String;
begin
  //设置字符串缓存区的大小
  SetLength (sWindowText, 1024);
  //调用API, 获取当前窗体的标题
  GetWindowText (Self.Handle, PChar(sWindowText), 1024);
  //将PChar类型处理成Delphi的String类型
  sWindowText := String(PChar(sWindowText));
  ShowMessage (sWindowText);
end;

Answer 2

var
  Buf : array[0..255] of char;
begin
  GetWindowText(窗口句柄,Buf,256);
  showmessage(string(Buf));
end;