скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Определить, нажат ли 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 © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook