第二个方法: ///////////////////////////////////////////////////////// procedure HideApplication(HideOnStartUp: Boolean = False); begin {sail2000#126.com} if HideOnStartUp then Application.ShowMainForm := False; if Application.MainFormOnTaskBar and (Application.MainForm <> nil) then begin ShowWindow(Application.MainForm.Handle, sw_Hide) end else begin ShowWindow(Application.Handle, sw_Hide); //唉。。。 end; end;
//调用方法一: procedure TForm1.FormCreate(Sender: TObject); //构建窗体时用 begin {sail2000#126.com} HideApplication(True); end;
//调用方法之二: procedure TForm1.Button1Click(Sender: TObject);//其他需要 begin {sail2000#126.com} HideApplication; end;