Программирование, имитация нажатия одной и более клавиш.

Question

вот код delphi7 (pascal) 
if (key=VK_NUMPAD8) then begin 
label1.caption:='u'; 
out32($378, 8); 
end; 
if (key=VK_NUMPAD4) then begin 
label1.caption:='d'; 
out32($378, 5); 
 end; 
 If (key=VK_NUMPAD8) AND (key=VK_NUMPAD4) then begin 
label1.caption:='u r'; 
out32($378, 12); 
end; 
 
вот где If (key=VK_NUMPAD8) AND (key=VK_NUMPAD4) then begin эта процедура отказывается работать, только понимает что нажато либо 8 либо 4? что добавить чтобы он в добавок понимал что нужно перемещяться прямо и направо? одновременно.?

Мришк · Accepted Answer

а вы сами подумайте, ведь по вашей программе это невозможно 
If (key=VK_NUMPAD8) AND (key=VK_NUMPAD4) 
key не может сразу равняться и тому и другому 
нужна функция которая состоит состояние клавиш в массив 
и тогда код будет таким 
 
If (key[VK_NUMPAD8]) AND (key[VK_NUMPAD4])