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

减小字体 增大字体 作者:佚名  来源:转载  发布时间:2011-02-18 23:00:13

以前的代码 :
/// ////////////////////////////////////
  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;

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

广告位置B