//声明:
//举例: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] ofChar;
num: Integer;
begin num := GetWindowText(Handle, arr, SizeOf(arr));
ShowMessage(IntToStr(num));
{5}end;