Реакция на сочетание клавишь

[micaell]

Задача такая:
При нажатии на кнопку форма программы становится невидима.
Нужно, чтобы при нажатии, например, на Alt+Ctrl+S форма снова становилась видима.
Заранее спасибо.

[Сильванович Михаил]

RegisterHotKey + обрабатываем WM_HOTKEY

[Shuraken]

Сообщение от Сильванович Михаил

RegisterHotKey + обрабатываем WM_HOTKEY

Не прокатывает

Form1Activate
begin
RegisterHotKey(Form1.Handle, 123, MOD_ALT + MOD_SHIFT, Ord('S'));
end;

Form1Destroy
begin
UnRegisterHotKey(Form1.Handle, 123);
end;

procedure wmHotKey(var Message: TMessage);
begin
Visible := not Visible;
end;

Форма исчезает и все, больше не появляется. В процессах висит.

[RSLoader]

unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.WMHotKey(var Message: TMessage);
begin
  Form1.Show;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
  RegisterHotKey(Handle,123,MOD_ALT+MOD_CONTROL,$53);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Form1.Hide;
end;
end.