Lenguaje de programación Borland Delphi
Para ello, por ejemplo, en el evento Click de un botón ponemos el siguiente código:
procedure TForm1.Button1Click(Sender: TObject);
begin
if HiWord(GetKeyState(VK_CONTROL)) <> 0 then
ShowMessage('La tecla Ctrl está pulsada.')
else
ShowMessage('La tecla Ctrl NO está pulsada.');
end;
Publicado el: 2003-09-24