обновление в блоге - Управление клавиатурой

[Pblog]

Управление клавиатурой

pblog.ruДля начала маленький код для определения нажатия клавиши Print Screen:
private
procedure AppIdle(Sender: TObject; var Done: Boolean);
//…
procedure TForm1.AppIdle(Sender: TObject; var Done: Boolean);
begin
if GetAsyncKeyState(VK_SNAPSHOT) 0 then
Form1.Caption := ‘PrintScreen!’;
Done := True;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnIdle := AppIdle;
end;
А теперь программный аналог Print Screen’а:
(more…)