如何检测右shift和左ctrl同时被按住不放

[lysbluesky]

如何检测右shift和左ctrl同时被按住不放?我试过api"getkeystate",但实验
失败,望高手指点,谢了.










lysbulesky
2000.9.2

[yinfudan]

我会调用这个API,要源代码写信至
[e-mail]

[zcw]

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssshift in Shift)
and (ssCtrl in Shift) then
label1.Caption:='OK!'
else
label1.Caption:='NO!'

end;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
label1.Caption:='NO!'
end;