4 replies to this topic

[look]

hola compañeros, tengo una aplicacion que se minimiza en la bandeja de sistema, mi idea es que al precionar una combinacion de teclas mi aplicacion se muestre en pantalla, algo asi como un ctrl+k , agradecere cualquier ayuda.
saludos

[seoane]

Un ejemplo rápido:

delphi

unit Unit4;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;
 
const
  ID_HOTKEY = 100;
 
type
  TForm4 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure WMHOTKEY(var Msg: TMessage); message WM_HOTKEY;
  public
    { Public declarations }
  end;
 
var
  Form4: TForm4;
 
implementation
 
{$R *.dfm}
 
procedure TForm4.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle,ID_HOTKEY,MOD_CONTROL,Ord('K'));
end;
 
procedure TForm4.WMHOTKEY(var Msg: TMessage);
begin
  case Msg.WParam of
    ID_HOTKEY: ShowMessage('Hola');
  end;
end;
 
end.

Para mas información busca en la ayuda RegisterHotKey y WM_HOTKEY 

[look]

gracias compañero seone, voy a probar...

[escafandra]

...Y si lo que realmente quieres es un Hook al teclado, puedes encontrar ejemplos en 1,  2, 3 y 4 (estos 3 últimos mas reservados)

Claro que todo esto es exclusivo para Windows 

Saludos.

[sir.dev.a.lot]

Informacion adicional para este tema.   Ya se que el Hilo es Viejo...

 

 

Hooking into the Windows API is a complicated process and there are several techniques to achieve this. Microsoft recommends that the callback procedure for most hooks should reside within a DLL, this is the method used by the TCPKeyHook Component. The Component encapsulates the procedures and functions within the separate DLL and uses Memory Mapped File (MMF) to send a custom message with the keyboard information to the calling application or process. The result is a system wide hook into all global keyboard events generated by the user keyboard input.

 

http://torry.net/vcl...eys/keyhook.zip

 

Saludos!

 

Si te sirvio de algo la Informacion.  Te agradeceria un click en Gracias!