- 以前的代码:
- ///
- ShowWindow(Application.Handle,SW_HIDE);
- ///
- 在 Delphi2007/2009/2010 已经失效!
- 原因是 Delphi 在 Form 改写代码,在工程文件中多了:
- ///
- Application.MainFormOnTaskbar := True;
- ///
- 这个主要是修正 Delphi 编译出来的 EXE 文件让它在任务栏的右键菜单和 系统的一样而已;
- 好了,进入正题;方法有二:
- 第一:
- 你可以将工程文件中的:
- Application.MainFormOnTaskbar := True;
- 这句注释掉,然后就可以用
- ShowWindow(Application.Handle,SW_HIDE);
- 这句了,结果是一夜回到解放前;因为在系统任务栏的右键菜单又只有三个了。。。
- 第二个方法:
- /
- 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;
- /
Delphi2007-Delphi2010 程序不出现在任务栏的方法
最新推荐文章于 2022-11-22 14:40:59 发布