帮帮忙 先谢谢了

我用Delphi写了一个小程序

下面是托盘显示窗体的代码 如何让他显示之后再在托盘处触发就变成隐藏窗体呢

procedure TForm1.ActMainExecute(Sender: TObject);
begin
ShowWindow(application.Handle,SW_SHOW);
Application.Restore();
Form1.Show
end;

判断窗口是否已经显示，如果是，则隐藏窗口，如果不是，则显示窗口。具体到语言我就不知道了，抱歉。
ShowWindow(application.Handle,SW_HIDE)
Form1.Hide