Aktives Fenster ermitteln

[Airblader]

Hi,

ich suche eine Möglichkeit das aktive Fenster zu ermitteln um mit SendMessage Tasten da hinzuschicken, also das sie in das aktive Feld eingetragen werden. Praktisch etwas per Hotkey eintragen lassen wie z.B. hier in Antworten.

Sinn ist natürlich kein Spambot o.ä. sondern eine Benutzung wie für Signaturen u.ä.

Ich könnte mit FindWindow() zwar das Fenster holen, aber verschiedene User haben verschiedene Browser. Darum brauche ich das aktive Fenster. (Da das Editfeld ja jeweils aktiviert ist, müsste ich das imho nicht nochmal extra holen).

Kann mir jemand helfen?

air

[marabu]

Hallo Ingo,

hast du es schon mit GetTopWindow(0) probiert?

Grüße vom marabu

[Airblader]

Nein, ist aber auch nicht in der Hilfe Danke schonmal.
Funktionieren wills jedoch noch nicht.

Ich mach logischerweise was falsch, aber was? *fg* Der Abschnitt zum Senden sieht so aus:

Delphi-Quellcode:

for i:=1 to Length(sClose) do
     SendMessage(GetTopWindow(0), WM_CHAR, Word(sClose[i]), 0);

(Von den Schweizern)

air
Übrigens: Ausgeführt wird es Ein ShowMessage funktioniert

[petergensfeld]

Hast Du mal gecheckt, ob GetTopWindow ein gültiges Handle (ungleich 0) zurückliefert? Außerdem meine ich, dass GetForegroundWindow eher die Routine ist, die Du suchst.

[Zacherl]

oder GetActiveWindow()

[marabu]

Das mit dem ForegroundWindow war schon die richtige Richtung.

Delphi-Quellcode:

function GetFocusedControl: HWnd;
var
  tid: Cardinal;
  hw: HWND;
begin
  hw := GetForegroundWindow;
  tid := GetWindowThreadProcessID(hw, nil);
  if AttachThreadInput(GetCurrentThreadID, tid, true)
    then Result := GetFocus
    else Result := HWND(-1);
  AttachThreadInput(GetCurrentThreadID, tid, false);
end;

procedure SendText(s: string);
var
  h: HWND;
  i: integer;
begin
  h := GetFocusedControl;
  for i := 1 to Length(s) do
    PostMessage(h, WM_CHAR, Word(s[i]), 0);
end;

Grüße vom marabu

[Airblader]

Laufzeitedit:

Danke, der Code "aus dem roten Kasten" funktioniert