Windows Tastatur öffnen

[dtpfl]

Delphi-Quellcode:

{$IFDEF MSWINDOWS}
procedure openKeyboard();
var
  FPath : String;
  IPTip_Main_Window: HWND;
begin
    FPath := 'C:\Program Files\Common Files\microsoft shared\ink\tabtip.exe';

    IPTip_Main_Window := FindWindow('IPTip_Main_Window', nil);

    if IPTip_Main_Window > 0 then
      PostMessage(IPTip_Main_Window, WM_SYSCOMMAND, SC_CLOSE, 0);


    if FileExists(FPath) then
      ShellExecute(0, 'OPEN', PChar(FPath), '', '', 1);

end;
{$endif}