如何在启动Delphi应用程序时捕获修改键以强制执行某些操作

发布时间：2020-12-15 09:42:16 所属栏目：大数据来源：网络整理

导读：我正在Delphi中编写一个使用SQLite3数据库的应用程序.我希望能够在按住一些修改键(例如CTRL SHIFT)的同时启动应用程序,以指示数据库的重新初始化. 如何在保存这些密钥时捕获应用程序已启动？解决方法 Tim有正确的答案,但您可能需要更多框架： procedure TFo

我正在Delphi中编写一个使用SQLite3数据库的应用程序.我希望能够在按住一些修改键(例如CTRL SHIFT)的同时启动应用程序,以指示数据库的重新初始化.

如何在保存这些密钥时捕获应用程序已启动？

解决方法

Tim有正确的答案,但您可能需要更多框架：

procedure TForm56.Button1Click(Sender: TObject);
begin
  if fNeedReinit then
    ReinitializeDatabase;
end;

procedure TForm56.FormCreate(Sender: TObject);
begin
  fNeedReinit := False;
end;

procedure TForm56.FormShow(Sender: TObject);
begin
 fNeedReinit := (GetKeyState(VK_SHIFT) < 0) and (GetKeyState(VK_CONTROL) < 0);
end;

将Button1Click更改为您之后检查fNeedReinit是否已设置的事件.如果您无法捕捉到按键,也可以在主窗体上设置KeyPreview.我刚刚测试了上面的代码并且它可以工作,但是如果你有一个启动画面等,那么它可能会改变一些事情.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!