怎样在delphi中注册全局热键

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;