妖哥

var
h1:thandle;
cp:array [0..255] of char;   //这个定义变量类型是关键，我原本定义成string然后用pchar函数转换，结果竟然查不到标题……汗，后来这样定义变量类型才行。

begin
  h1:=getforegroundwindow();//这个是用来获取当前焦点窗口的句柄
  if h1 <> 0 then
  begin
    edit1.Text:=inttostr(h1);
    //sendmessage(h1,WM_SYSCOMMAND,SC_MAXIMIZE,0);
    if getwindowtext(h1,cp,254)>0 then  //就是这里了，这个cp必须是panichar类型
    edit2.Text:=cp else
    edit2.text:='false';
  end
  else
  edit1.Text:='false';
end;