[DELPHI] OBTER O TÍTULO DA JANELA ATIVA NO WINDOWS

// uses SysUtils

procedure TForm1.Button1Click(Sender: TObject); 

var

  Handle: THandle;

  Len: LongInt;

  Title: string;

begin

  Handle := GetForegroundWindow;

  if Handle <> 0 then

  begin

    Len := GetWindowTextLength(Handle) + 1;

    SetLength(Title, Len);

    GetWindowText(Handle, PChar(Title), Len);

    ShowMessage(TrimRight(Title));

  end;

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】