判断两个键同时按下，这里是两个方向键

原文：http://hi.baidu.com/gezhou/blog/item/4bf712b326cc94a2d8335af0.html

使用GetKeyboardState来判断键盘按键状态，判断用户是否同时按下上键和左键

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
k :TKeyboardState;
begin
GetKeyboardState(k);
if ((k[vk_up]=128)or(k[vk_up]=129)) and
    ((k[vk_left]=128)or(k[vk_left]=129)) then
    self.Caption := FormatDateTime('yyyy-MM-dd hh:nn:ss',now);
end;

 

<script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>