unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, TlHelp32, // ÓÃÓÚ½ø³Ì²Ù×÷
  ShellAPI, ComObj, ActiveX;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure KillTabTipProcess;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
  hProcess: THandle;
begin
  FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if FSnapshotHandle <> INVALID_HANDLE_VALUE then
  begin
    FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
    ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

    while ContinueLoop do
    begin
      if ('TabTip.exe' = string(FProcessEntry32.szExeFile)) then
      begin
        hProcess := OpenProcess(PROCESS_TERMINATE, False, FProcessEntry32.th32ProcessID);
        if hProcess <> 0 then
        begin
          TerminateProcess(hProcess, 0);
          CloseHandle(hProcess);
        end;
      end;
      ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
    end;
    CloseHandle(FSnapshotHandle);
  end;
end;

procedure OpenTabTip;
var
  TabTipPath: string;
  Tip: OleVariant;
begin
  TabTipPath := 'C:\Program Files\Common Files\Microsoft Shared\ink\TabTip.exe';

    Writeln('IsNewVisable show TabTip');
    CoInitialize(nil);
    try
      Tip := CreateComObject(CLSID_UIHostNoLaunch) as IDispatch;
      if VarIsClear(Tip) then
      begin
        Writeln('tip is nullptr');
        Exit;
      end;
      (Tip as ITipInvocation).Toggle(GetDesktopWindow); // ÏÔʾ´¥Ãþ¼üÅÌ
    finally
      CoUninitialize;
    end;

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  KillTabTipProcess; // È·±£Ã»ÓвÐÁôµÄTabTip½ø³Ì
  //ShellExecute(0, nil, 'C:\Program Files\Common Files\Microsoft Shared\ink\TabTip.exe', nil, nil, SW_SHOWNORMAL);
  OpenTabTip;
end;

end.