QQ 抓屏程序原理（实现了与QQ抓屏的程序）

---第一，注册热键

procedure TForm6.FormShow(Sender: TObject);
begin
  RegisterHotKey(Handle, 0, 0, VK_UP);
end;

--第二，窗体透明

procedure TForm6.MSGHOTKEY(var Msg: TWMHotKey);
begin
  if Msg.HotKey = 0 then
  begin
    Self.AlphaBlend := True;
    Self.AlphaBlendValue := 80;
  end;
end;