Windows-Hotkey

[Christian Seehase]

Moin Chris,

wie "das geht nicht"

Code:

[b]uses[/b]
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,shellapi;

[b]type[/b]
  TForm1 = [b]class[/b](TForm)
    Button1: TButton;
    Button2: TButton;
    [b]procedure[/b] Button1Click(Sender: TObject);
    [b]procedure[/b] Button2Click(Sender: TObject);
  [b]private[/b]
    [color=#000080]{ Private-Deklarationen }[/color]
  [b]public[/b]
    [color=#000080]{ Public-Deklarationen }[/color]
    [b]procedure[/b] WndProc([b]var[/b] msg : TMessage); override;
  [b]end[/b];

[b]var[/b]
  Form1: TForm1;

[b]implementation[/b]

[color=#000080]{$R *.DFM}[/color]

[b]procedure[/b] TForm1.WndProc([b]var[/b] msg : TMessage);
[b]begin[/b]
  [b]if[/b] msg.Msg = WM_HOTKEY [b]then[/b]
  [b]begin[/b]
    [b]if[/b] (msg.lParam [b]and[/b] $FFFF) = MOD_WIN [b]then[/b]
    [b]begin[/b]
      [b]if[/b] ((msg.lParam [b]and[/b] $FFFF0000) [b]shr[/b] 16) = ord('T') [b]then[/b]
      [b]begin[/b]
        ShellExecute(0,'open','taskmgr.exe',[b]nil[/b],[b]nil[/b],SW_NORMAL);
      [b]end[/b];
    [b]end[/b];
  [b]end[/b];
  [b]inherited[/b] WndProc(msg);
[b]end[/b];

[b]procedure[/b] TForm1.Button1Click(Sender: TObject);
[b]begin[/b]
  RegisterHotKey(self.Handle,$BFFF,MOD_WIN,ord('T'));
[b]end[/b];

[b]procedure[/b] TForm1.Button2Click(Sender: TObject);
[b]begin[/b]
  UnregisterHotkey(self.Handle,$BFFF);
[b]end[/b];

Ist jetzt zwar 'ne Delphi Lösung...