Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как определить нажатие определенной клавиши во время загрузки приложения?

01.01.2007

Используйту WinAPI функцию GetKeyState() для определения нажатия клавиши в тексте проекта. Для того чтобы увидеть текст файла проекта в главном меню Delphi 3 выберите "View">>"ProjectSource" в Delphi 4 "Project">>"View Source".

 

             program Project1; 
 
             uses 
               Windows, 
               Forms, 
               Unit1 in 'Unit1.pas' {Form1}; 
 
             {$R *.RES} 
 
             begin 
               if GetKeyState(vk_F8) < 1 then 
                MessageBox(0, 'F8 was pressed during startup', 'MyApp', mb_ok); 
               Application.Initialize; 
               Application.CreateForm(TForm1, Form1); 
               Application.Run; 
             end.