随笔 - 2146  文章 - 97 评论 - 11767 trackbacks - 253

//声明:
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;
posted on 2008-02-07 11:36  万一  阅读(...)  评论(...编辑  收藏