//声明:
//举例:
var
//标题文本个数:
var
GetWindowText(
hWnd: HWND;
{窗口句柄}
lpString: PChar;
{接收文本的缓冲区的指针}
nMaxCount: Integer
{指定缓冲区大小, 其中包含NULL字符; 如果文本超出,会被被截断}
): Integer;
{返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}
arr:
array[
0
..
254
]
of Char;
begin
GetWindowText(Handle, @arr, SizeOf(arr));
ShowMessage(arr);
{Form1}
end;
arr:
array[
0
..
254
]
of
Char;
num: Integer;
begin
num := GetWindowText(Handle, arr, SizeOf(arr));
ShowMessage(IntToStr(num));
{5}
end;
粘贴自: <http://www.cnblogs.com/del/archive/2008/02/07/1065642.html>