Delphi2007-Delphi2010 程序不出现在任务栏的方法

  1. 以前的代码: 
  2. /// 
  3. ShowWindow(Application.Handle,SW_HIDE); 
  4. /// 
  5. 在 Delphi2007/2009/2010 已经失效! 
  6. 原因是 Delphi 在 Form 改写代码,在工程文件中多了: 
  7. /// 
  8. Application.MainFormOnTaskbar := True; 
  9. /// 
  10. 这个主要是修正 Delphi 编译出来的 EXE 文件让它在任务栏的右键菜单和 系统的一样而已; 
  11. 好了,进入正题;方法有二: 
  12. 第一: 
  13. 你可以将工程文件中的: 
  14. Application.MainFormOnTaskbar := True; 
  15. 这句注释掉,然后就可以用 
  16. ShowWindow(Application.Handle,SW_HIDE); 
  17. 这句了,结果是一夜回到解放前;因为在系统任务栏的右键菜单又只有三个了。。。 
  18. 第二个方法: 
  19. / 
  20. procedure HideApplication(HideOnStartUp: Boolean = False); 
  21. begin {sail2000#126.com} 
  22. if HideOnStartUp then 
  23. Application.ShowMainForm := False; 
  24. if Application.MainFormOnTaskBar and (Application.MainForm <> nil) then 
  25. begin 
  26. ShowWindow(Application.MainForm.Handle, sw_Hide) 
  27. end 
  28. else 
  29. begin 
  30. ShowWindow(Application.Handle, sw_Hide); //唉。。。 
  31. end
  32. end
  33. //调用方法一: 
  34. procedure TForm1.FormCreate(Sender: TObject); //构建窗体时用 
  35. begin {sail2000#126.com} 
  36. HideApplication(True); 
  37. end
  38. //调用方法之二: 
  39. procedure TForm1.Button1Click(Sender: TObject);//其他需要 
  40. begin {sail2000#126.com} 
  41. HideApplication; 
  42. end
  43. / 

你可能感兴趣的:(转帖)