procedure TForm1.Button1Click(Sender: TObject);begin //ShowWindow(Self.Handle,SW_MINIMIZE); Application.Minimize; //这句是最小化到任务栏的end;