Активное окно

[MadReason]

Начну сразу. Если изменилось активное окно, то нужно получить его название.

[А. Долматов]

событие OnChange разве не пойдет?

[BOBAH13]

я думаю это будет выходом из ситуации, методом сравнения 2х переменных

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hTopPrev: HWND;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
      hTop: HWND;
begin
      hTop := Windows.GetForegroundWindow;

      if (hTopPrev<>hTop) then begin
         hTopPrev := hTop;
         ShowMessage('Окно сменилось!!!');
      end;
end;

end.

[MadReason]

мне необходимо узнать заголовок активного окна, если активным окном стало другое приложение. я думаю что это делается через getactivwindow и getwindowtext, только чета пока не выходит. =(

[rpy3uH]

вот так

var 
 str:array[0..255] of char;

hTop := Windows.GetForegroundWindow;
Getwindowtext(htop,@str,256);

потом
Showmessage(str);

[nova-alex]

Такая штука определяется ф-ей
GetWindowText(hWnd,lpString,nMaxCou nt);
где hWnd-дескриптор окна и он определяется с помощью
GetForegroundWindow, lpString-переменная, в которую копируется искомый текст (заголовок), он является адресом, буфером , т.е. реально указателем, nMaxCount- кол-во копируемых символов заголовка в lpString.

[BOBAH13]

в єтом плане все довольно елементарно

[rpy3uH]

так в чём же проблема?

[BOBAH13]

какая проблема )))

[Simply-Art]

Откапал эту тему. У меня вопрос в продолжение, вот мы нашли активное окно, а как из него получить текст который был выделен?