🚀 go-pugleaf

In article <3de01f20@newsgroups.borland.com>, Tim Skau wrote:
> I want to listen for spesific key-pressed event/messages in Windows 2000.
> How can I do this?
> Can I assign the "printscreen" functionality to a different key?

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
  private
    { Private declarations }
    procedure wmHotkey( Var msg: TWMHotkey );
      message WM_HOTKEY;
    procedure WMActivate( Var msg: TWMActivate );
      message WM_ACTIVATE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure tform1.wmHotkey( Var msg: TWMHotkey );
begin
  if msg.HotKey = IDHOT_SNAPWINDOW Then
    label1.caption := 'PrintScr pressed';
    // would print form from here
end;

procedure TForm1.WMActivate( Var msg: TWMActivate );
begin
  If msg.Active <> WA_INACTIVE Then
    RegisterHotkey( Handle, IDHOT_SNAPWINDOW, 0, VK_SNAPSHOT )
  Else begin
    UnRegisterHotkey( Handle, IDHOT_SNAPWINDOW );
    label1.caption := '';
  end;
  inherited;
end;

This would "hook" the key only while your form is the active form. But 
RegisterHotkey also works for a background application.

--
Peter Below (TeamB)  
Use the newsgroup archives :
http://www.mers.com/searchsite.html
http://www.tamaracka.com/search.htm
http://groups.google.com
http://www.prolix.be