WinAPI: GetWindowText - 获取窗口标题

//声明:

GetWindowText(

  hWnd: HWND;        {窗口句柄}

  lpString: PChar;   {接收文本的缓冲区的指针}

  nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}

): Integer;          {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}	


 
   




//举例:

var

  arr: array[0..254] of Char;

begin

  GetWindowText(Handle, @arr, SizeOf(arr));

  ShowMessage(arr); {Form1}

end;


 
   




//标题文本个数:

var

  arr: array[0..254] of Char;

  num: Integer;

begin

  num := GetWindowText(Handle, arr, SizeOf(arr));

  ShowMessage(IntToStr(num)); {5}

end;