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

Delphi-Quellcode:

ActiveWindow

lässt sich ermitteln, aber nicht das für

Delphi-Quellcode:

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]

:-D

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