Checken welches Fenster im Vordergrund ist...

[TheShunk]

Hei,

ich suche eine Funktion die mir den Namen des Fensters, welches sich aktuell
im Vordergrund befindet ausgibt. Diese müsste anschließend mit einer gegebenen
Liste abgeglichen werden.

MfG
Shunk

[quendolineDD]

GetForeGroundWindow() bekommst du das Handle des Fensters, welches sich aktuell im Vordergrund befindet. Darüber kannst du dann alles andere abfragen.

Lg

[TheShunk]

Hei,


danke erstmal, aber so richtig weiter komme ich noch immer nicht :)
Was ist ein "Handle" und wie kann ich das in einen string o.ä. umwandeln?!

[DeddyH]

Nicht groß getestet:

Delphi-Quellcode:

function ActiveWindowTitle: string;
var Wnd: HWnd;
begin
  Wnd := GetForegroundWindow;
  if Wnd <> 0 then
    begin
      SetLength(Result,Succ(GetWindowTextLength(Wnd)));
      GetWindowText(Wnd,@Result[1],Length(Result));
    end;
end;

[himitsu]

Code:

GetWindowText(Wnd, PChar(Result), Length(Result) [color=#ff0000][b]+ 1[/b][/color]);

PChar(Result) ... wirft keine Exception, wenn der Text mal '' (leer) ist

+1 ... GetWindowTextLength gibt die StringLänge ohne abschlißendes #0
und GetWindowText möchte den Speicher inclusive #0

[DeddyH]

Zitat:

Delphi-Quellcode:

Succ(GetWindowTextLength(Wnd))

Deshalb ja das Succ ;)

[himitsu]

ups ... das Succ glatt übersehn :oops:

nja, das ist dann aber etwas falsch, an dieser Stelle ... es sei denn du entfernst das zusätzliche Zeichen wieder, nachdem der Text ausgelesen wurde.

z.B.:

Delphi-Quellcode:

Wnd := GetForegroundWindow;
if Wnd <> 0 then
  begin
    SetLength(Result, Succ(GetWindowTextLength(Wnd)));
    SetLength(Result, GetWindowText(Wnd, PChar(Result), Length(Result)));
  end;

[DeddyH]

OK, das wäre die elegante Lösung, wie gesagt, schnell dahergeschrieben und vielleicht 20 Sekunden ausprobiert, dabei ist mir nichts aufgefallen.