function RegisterHotKey(hWnd: HWND; id: Integer; fsModifiers, vk: UINT): BOOL; stdcall;function UnregisterHotKey(hWnd: HWND; id: Integer): BOOL; stdcall;...
protected
    procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
...procedure TForm1.FormCreate(Sender: TObject);
begin
    RegisterHotKey(Handle,123,MOD_CONTROL,VK_F7);//Ctrl_F7
end;procedure TForm1.WMHotKey(var Message: TMessage);
begin
    Application.Restore;
end;