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;