Code:

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.

 

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить