Recuperar el texto mostrado en la barra de título de cualquier ventana

function GetActiveWindowCaption: string;
var
  h : hwnd;
  sz: Integer;
begin
  // Lo primero es recuperar el handle de la ventana de primer plano
  h := GetForegroundWindow;
 
  // Cambiamos la dimensión de la cadena de retorno para que pueda contener el texto
  // (debido a que aun no conocemos su longitud).
  SetLength(Result, 255);
 
  // Hacemos la llamada a la función del API para obtener el texto de la ventana
  sz := GetWindowText(h, PChar(Result), 255);
 
  // Redimensionamos la cadena para eliminar los carácteres sobrantes
  SetLength(Result, sz);
end;