Определить, нажат ли Shift при старте приложения

Советы » Клавиши » Определить, нажат ли Shift при старте приложения

program

Project1; uses

Forms, Windows, Dialogs, Unit1 in

'Unit1.pas' {Form1}; var

KeyState: TKeyBoardState; {$R *.RES} begin

Application.Initialize; GetKeyboardState(KeyState); if

((KeyState[vk_Shift] and

128) <> 0) then

begin

{ here you could put some code to show the app as tray icon, ie hier kann z.B ein Code eingefugt werden, um die Applikation als Tray Icon anzuzeigen} end

; Application.CreateForm(TForm1, Form1); Application.Run; end

.

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com