TFormDemo = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure WMHotkey( var msg: TWMHotkey ); message WM_HOTKEY;
public
{ Public declarations }
end;
var
FormDemo: TFormDemo;
implementation
procedure TFormDemo.FormCreate(Sender: TObject);
begin
RegisterHotkey (Handle, 1, 0, VK_F9);
end;
procedure TFormDemo.FormDestroy(Sender: TObject);
begin
UnRegisterHotkey( Handle, 1 ) ;
end;
procedure TFormDemo.WMHotkey(var msg: TWMHotkey);
begin
if msg.hotkey = 1 then
begin
if IsIconic(Application.Handle) then
Application.Restore;
BringToFront;
end;
end;