让程序最小化时看不到程序，然后用快捷方式调出来这个要怎么做呢？

Question

让程序最小化时看不到程序，然后用快捷方式调出来这个要怎么做呢？

Answer 1

程序最小化时看不到：
type
  TForm1 = class(TForm)
  private
    { Private declarations }
    procedure ON_MININIZE(var msg: TMessage); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.ON_MININIZE(var msg: TMessage);
begin
  if (msg.Msg = WM_SYSCOMMAND) then
    if (msg.WParamLo = SC_MINIMIZE) then
      self.Hide;
end;