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

转载请注明：小帆工作室
以前的代码：
///////////////////////////////////////
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;

/////////////////////////////////////////////////////////

两个调用方法，看需要用。

推荐分享