Home/ Questions/Q 70903
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-10T19:48:14+00:00

I’m writing an application in Delphi which uses an SQLite3 database. I’d like to

  • 0

I’m writing an application in Delphi which uses an SQLite3 database. I’d like to be able to start the application while holding some modifier keys, such as CTRL + SHIFT, to signal reinitialization of the database.

How can I capture that the application was started while these keys were held?

Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Tim has the right answer, but you might need a little more framework:

    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;

    Change Button1Click with your later event that checks to see if fNeedReinit has been set. You can also set KeyPreview on your main form if you have trouble getting it to catch the key stroke. I just tested the above code and it works, but if you have a splash screen, etc. then it might change things.

    • 0