热健 怎么呼出 最大化 最小化 还原

Question

procedure TForm1.skey(var msg:TMessage); //设置全局快捷键
  begin
    if (msg.LParamLo=MOD_ALT) and (msg.LParamHi=81) then
    begin
    // form1.WindowState:=wsNormal;//呼出
    end;
  end;程序已做到托盘，怎么像qq一样呼出 ?  且可  呼出 最大化 ？  最小化 ？  还原   ？  上面的语句没用啊？

Answer 1

可以使用sendmessage或者postmessage發送以下消息：(熱鍵發送也可以，或者得到窗口的句柄再發送）  关闭:WM_CLOSE   
  最大化：WM_SYSCOMMAND,WParam为SC_MAXIMIZE;   
  最小化：WM_SYSCOMMAND,WParam为SC_MINIMIZE;