Fokussiertes Fenster einer Windows 10 App ermitteln

[amigage]

Hallo,

ich möchte Daten an ein Eingabefeld senden.
In "normalen" Windows-Programmen kann ich dies über folgenden Code durchführen.

Delphi-Quellcode:

  function GetFocussedWindow(ParentWnd:HWnd):HWnd;
    var OtherThreadID,Buffer:DWord;
  begin
    OtherThreadID := GetWindowThreadProcessID(ParentWnd, @Buffer);
    if AttachThreadInput(GetCurrentThreadID, OtherThreadID, true) then
    begin
      Result := GetFocus;
      AttachThreadInput(GetCurrentThreadID, OtherThreadID, false);
    end
    else
    begin
      Result:=0;
    end;
  end;


var
  ActWindow, TargetWindow: HWND;
  KeyData : packed record
    RepeatCount : word;
    ScanCode : byte;
    Bits : byte;
  end;
  Character : byte;

begin
  ActWindow := GetForegroundWindow;
  if ActWindow <> 0 then
    TargetWindow:= GetFocussedWindow(ActWindow);
    if TargetWindow <> 0 then
    //...
      PostMessage(TargetWindow, wm_char, Character, LongInt(KeyData));
    //...
    begin
  end;
end;

Das funktioniert seit Jahren unter Windows, auch bei Programmen unter Windows 10.
Aber leider nicht mehr in den Windows 10 Apps, wie z.B. Edge

ActiveWindow lässt sich ermitteln, aber nicht das für Postmessage notwendig Handle.

Weiß zufälligerweise jemand Bescheid, wie man das Handle in einer Windows 10 App ermittelt?

Beste Grüße
amigage

[Der schöne Günther]

Kenne mich damit (noch) nicht aus, aber das klassische Konzept von HWNDs, Kindfenstern und allem greift doch da nicht mehr, oder?

Nur kurz überflogen:
https://social.msdn.microsoft.com/Fo...appswithcsharp

und

http://stackoverflow.com/questions/9629282/


Vergleiche doch mal die Fensterstruktur von z.B. Edge mit dem normalen Explorer oder Notepad mit z.B. WinSpy.

[amigage]

Hm, WinSpy gibt folgendes aus.
Es ist definitiv ein andere Struktur, mit der ich aber leider überhaupt nichts anfangen kann...

[HolgerX]

Hallo..

hmm..
Meine Erfahrung : PostMessage mit WMChar funktioniert nicht mit allen Fenstern/Programmen/Controlls.

Wenn Du nur an das derzeit aktive Fenster/Control eine Tastatur-Eingabe erzeugen willst, dann nehme besser die Windows-Api 'SendInput'.

Diese funktioniert sogar mit ActiveX-Controlls zuverlässig, da diese eine RAW- Eingabe simuliert, wie wenn der Char von einer Tastatur kommt.

Bei ActiveX-Contrls wird (wenn ich mich richtig erinnere) eine Tastatureingabe von Fenster selber verarbeitet und an sein Child geschickt. Oder die Tastatureingaben werden direkt als RAW-Input verarbeitet, dann werden alle Windows-Messages komplett ignoriert.

Und ich vermute, das es bei Edge ähnlich ist.

[amigage]

Hallo,

danke für den Hinweis. Ich werde es mal mit "SendInput" probieren und berichten.

Amigage

[amigage]

Es war der richtige Tipp. Mit SendInput funktioniert es auch in Metro Apps.

Und mit dem Wrapper SendInputHelper war es auch ein Kinderspiel, es umzusetzen.
http://www.delphipraxis.net/154931-s...reinfacht.html

Besten Dank für die richtige Spur.

Amigage