procedure TfrmMAIN.WndProc(var msg : TMessage);
begin
  if msg.Msg = WM_HOTKEY then begin
    if msg.WParam = iAtom then begin
    end;
  end else begin
    inherited WndProc(msg);
  end;
end;

procedure TfrmMAIN.Button1Click(Sender: TObject);
begin
  RegisterHotKey(self.Handle,iAtom,MOD_ALT or MOD_CONTROL or MOD_SHIFT,ord('F'));
end;

procedure TfrmMAIN.FormCreate(Sender: TObject);
begin
  iAtom := GlobalAddAtom('{109C7275-AB9C-4E60-B72F-1E8CF73B5092}');
end;

procedure TfrmMAIN.FormDestroy(Sender: TObject);
begin
  GlobalDeleteAtom(iAtom);
end;

procedure TfrmMAIN.Button2Click(Sender: TObject);
begin
  UnregisterHotkey(self.Handle,iAtom);
end;