主页 / user-1580348

user1580348's questions

Martin Hope
user1580348
Asked: 2024-10-20 00:09:11 +0800 CST
  • 6

WIN+.在 Windows 10/11 上，可以通过按下按键（Windows 键 + 句点键）来调用 Windows Emoji 面板

我尝试模拟按下这些键：

procedure ShowEmojiPanel;
var
  Inputs: array[0..3] of TInput;
begin
  // Simulate pressing the Windows Key
  ZeroMemory(@Inputs, SizeOf(Inputs));
  Inputs[0].Itype := INPUT_KEYBOARD;
  Inputs[0].ki.wVk := VK_LWIN;

  // Simulate pressing the '.' key
  Inputs[1].Itype := INPUT_KEYBOARD;
  Inputs[1].ki.wVk := Ord('.');

  // Simulate releasing the '.' key
  Inputs[2].Itype := INPUT_KEYBOARD;
  Inputs[2].ki.wVk := Ord('.');
  Inputs[2].ki.dwFlags := KEYEVENTF_KEYUP;

  // Simulate releasing the Windows Key
  Inputs[3].Itype := INPUT_KEYBOARD;
  Inputs[3].ki.wVk := VK_LWIN;
  Inputs[3].ki.dwFlags := KEYEVENTF_KEYUP;

  // Send the inputs
  SendInput(4, Inputs[0], SizeOf(TInput));
end;

procedure ShowEmojiPanel;
begin
  // Press WIN key
  keybd_event(VK_LWIN, 0, 0, 0);

  // Press period (.)
  keybd_event(Ord('.'), 0, 0, 0);

  // Release period (.)
  keybd_event(Ord('.'), 0, KEYEVENTF_KEYUP, 0);

  // Release WIN key
  keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
end;

但是，似乎这些程序都无法在我的电脑上打开 Windows Emoji 面板Windows 11。

还有其他方法可以以编程方式显示 Windows 表情符号面板吗？

delphi
Martin Hope
user1580348
Asked: 2024-08-04 00:00:32 +0800 CST
  • 6

在 Windows 11 Delphi 12.1 中，我有一个只有一个按钮的简单 Delphi VCL 应用程序：

procedure TForm1.Button1Click(Sender: TObject);
begin
  Application.Minimize;
  ShowMessage('Test');
  Application.Restore;
end;

不幸的是，应用程序的窗体无法恢复。只有单击任务栏图标后，窗体才会恢复。

通话结束后，如何以编程方式恢复表单ShowMessage？

编辑：

与此同时，我发现了一个非常简单的解决方案：

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Application.Minimize;
  Application.MainForm.Visible := False;

  ShowMessage('Test');

  Application.MainForm.Visible := True;
  //Application.Restore;
end;

但是，对话框显示时任务栏图标会消失ShowMessage。如何避免这种情况？

windows