Ver Mensaje Individual
  #2  
Antiguo 31-08-2003
Ruben_Cu Ruben_Cu is offline
No confirmado
 
Registrado: oct 2003
Ubicación: Mariel, Cuba
Posts: 271
Reputación: 0
Ruben_Cu Va por buen camino
Hola NIKO, implementa este evento con este código para obtener lo que deseas. En la unit windows.pas están el resto de los números asociados a las distintas teclas. Debes pasar la propiedad KeyPreview del formulario a true.
Código:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  var tecla:string;
begin
        case key of
        112: begin
                winexec('notepad.exe',SW_SHOW);
                tecla:='F1';
                end;
        113: begin
                winexec('C:\Archivos de programa\Internet Explorer\IEXPLORE.EXE',SW_SHOW);
                tecla:='F2';
                end;
        end;
        statusbar1.SimpleText:='Tecla Pulsada '+tecla;

end;
Espero te ayude esta idea.
Saludos
Responder Con Cita