procedure TForm1.WndProc(var Message: TMessage);
begin
{ tests to determine whether to continue processing }
if Message.Msg=wm_keydown then
begin
if (GetAsyncKeyState(vk_shift)<0) and (message.WParam=vk_end)then
showmessage('Shift+End')
end;
inherited WndProc(Message);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.WindowProc:=WndProc;
end;
1。
procedure TForm1.WndProc(var Message: TMessage);
begin
{ tests to determine whether to continue processing }
if Message.Msg=wm_keydown then
begin
if message.WParam=VK_PRIOR then showmessage('pageup');
end;
inherited WndProc(Message);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
form1.WindowProc:=WndProc;
end;