On key down

Hej....

Jeg er igang med at lave en program, og jeg har brug for en lille funktion...

Jeg vil gerne kunne execute en command i mit program når jeg er inde i et andet program ved at programmere en eller anden kode som sniffer til foreksempel F5 knappen...

Jeg regner med det er noget med key down eller sådan noget...

MVH. The One

Kode 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    procedure HotKeyMsg(var Msg: TMessage); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.HotKeyMsg(var Msg: TMessage);
begin
  case Msg.WParam of
    1: ShowMessage('Hei! Du trykket F5!!');
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 1, 0, VK_F5);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, 1);
end;

end.

Hej....

Jeg er igang med at lave en program, og jeg har brug for en lille funktion...

Jeg vil gerne kunne execute en command i mit program når jeg er inde i et andet program ved at programmere en eller anden kode som sniffer til foreksempel F5 knappen...

Jeg regner med det er noget med key down eller sådan noget...

MVH. The One

Hej....

Jeg er igang med at lave en program, og jeg har brug for en lille funktion...

Jeg vil gerne kunne execute en command i mit program når jeg er inde i et andet program ved at programmere en eller anden kode som sniffer til foreksempel F5 knappen...

Jeg regner med det er noget med key down eller sådan noget...

Hvordan laver man et kode eksempel ting her på udvikleren?

[ pre ][ /pre ] bare uden mellemrum!


Windows er verdens beste trojan!

Hvordan laver man et kode eksempel ting her på udvikleren?

Hej....

Jeg er igang med at lave en program, og jeg har brug for en lille funktion...

Jeg vil gerne kunne execute en command i mit program når jeg er inde i et andet program ved at programmere en eller anden kode som sniffer til foreksempel F5 knappen...

Jeg regner med det er noget med key down eller sådan noget...

MVH. The One

Prøv dette:

Kode 

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Private declarations }
    procedure HotKeyMsg(var Msg: TMessage); message WM_HOTKEY;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.HotKeyMsg(var Msg: TMessage);
begin
  case Msg.WParam of
    1: ShowMessage('Hei! Du trykket F5!!');
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  RegisterHotKey(Handle, 1, 0, VK_F5);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, 1);
end;

end.

Mvh
DiZpel