Windows 10 Bildschirmtastatur automatisch in numerischer Darstellung öffnen

[Taschenrechner]

Hallo zusammen,

ich scheitere schon beim ermitteln der Koordinaten des Touch Keyboards Tabtip.exe

procedure TTestform.Button1Click(Sender: TObject);
var TouchWindow, ControlHandle:Hwnd;
WindowRect:TRect;
pos:TPoint;
begin


touchWindow:= FindWindow(nil, 'IPTIP_Main_Window');

//touchWindow:= FindWindow(nil, 'Unbenannt - Editor'); //Notepad
//touchWindow:= FindWindow(nil, 'Microsoft Text Input Application'); //Notepad

if TouchWindow <> 0 then
begin
GetWindowRect(TouchWindow,WindowRect);

if (edit1.Text <=' ') or (edit2.Text<=' ') then
begin
pos.x:=WindowRect.Left;
pos.Y:=WindowRect.Top;
edit1.text:=intToStr(pos.x);
edit2.text:=intToStr(pos.y);
Label2.text:='Touchpad Pos Links: '+intToStr(pos.x) +' Touchpad Pos Top:= '+ intToStr(pos.Y);
end
else begin
//übernehme die Zahlen in den beiden Edit-Feldern
pos.X:=strToInt(trim(edit1.text));
pos.Y:=strToInt(trim(edit2.Text));
end;
aendereTastaturLayout(true,pos,TouchWindow); //auf numerisch
end;
end;



Mit Notepad klappt alles: touchWindow:= FindWindow(nil, 'Unbenannt - Editor'); //Notepad


1. Kriegt Ihr die Koordinaten raus mit FindWindow?
2. Gegoogelt und es hieß mal mit Microsoft Text Input Application versuchen --> touchWindow:= FindWindow(nil, 'Microsoft Text Input Application'); passiert aber auch nix...


Ansonsten würde das mit dem Mausklick simulieren funktionieren...aber hat jemand ne Idee wie man die Position des Fensters von tabtip.exe ermitteln kann?

Benutze aktuelle Windows 10 Version zum testen Version 21H1 Build 19043.1165

Danke!