delphi xe 程序不显示在任务栏

chaojitc 2011-06-04 12:59:58

原来D7的方法已经没用了~XE怎么才可以？

...全文

327 4 打赏收藏转发到动态举报

写回复

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

dropme 2011-06-10

打赏
举报

回复

楼上滴说错了一点点~是在dpr里把Application.MainFormOnTaskbar:= False; 然后主窗体onshow的时候，用ShowWindow(Handle, SW_HIDE)就可以了~

bamboo2000 2011-06-10

打赏
举报

回复

dpr中把把showontaskbar设定一下，主窗口忘记用不用做成工具窗口了，然后在run之前把application隐藏，就ok了，我记得当时win7,xp,2003测试都能在任务栏隐藏，没出问题

chaojitc 2011-06-10

打赏
举报

回复

[Quote=引用 3 楼 dropme 的回复:]
楼上滴说错了一点点~是在dpr里把Application.MainFormOnTaskbar:= False; 然后主窗体onshow的时候，用ShowWindow(Handle, SW_HIDE)就可以了~
[/Quote]
那 alt+tab里怎么也一起隐藏了~在不改变样式的情况下

chaojitc 2011-06-05

打赏
举报

回复

- - 这问题很难吗？

delphi显示隐藏任务栏 delphi显示隐藏任务栏

Delphi显示隐藏Windows任务栏窗口，把任务栏隐藏掉不显示，当然这个程序还可以显示任务栏，觉得没有什么用，做系统优化软件的时候或许用得上。程序通过数组来保存任务栏名称，将变量nCmdShow设为SW_HIDE来隐藏窗口，设为SW_RESTORE来显示窗口，同时通过调用hideTaskbar过程隐藏任务栏，通过调用showTaskbar过程来显示任务栏，相关代码：　　//将nCmdShow设为SW_RESTORE来显示窗口　　procedure TForm1.Button1Click(Sender: TObject); 　　begin 　　 hideTaskbar; 　　 //调用hideTaskbar过程隐藏任务栏 　　procedure TForm1.Button2Click(Sender: TObject); 　　begin 　　 showTaskbar; 　　//调用showTaskbar过程显示任务栏 　　end;

Delphi控制隐藏、显示任务栏..rar

delphi隐藏窗体在windows任务栏，在右下角，单独集成单元文件，比控件好用，支持delphi7---XE10,主要区分是下面的函数 delphiXE10 procedure TShellNotifyIcon.LoadAppIcon; var s: string; begin with NotifyIcon do begin cbSize := SizeOf; //TNotifyIconData Wnd := Classes.AllocateHWnd(WndProc); uID := 1; uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; uCallBackMessage := WM_NotifyIcon; hIcon := Application.Icon.Handle; s := HintStr; //StrLCopy(szTip, PAnsiChar(s), Length(s)); //Icon.OnClick:=onclik(TObject); StrCopy(szTip,PChar(s)); end; Shell_NotifyIcon(NIM_ADD, @NotifyIcon); end; delphi7 procedure TShellNotifyIcon.LoadAppIcon; var s: string; begin with NotifyIcon do begin cbSize := SizeOf(TNotifyIconData); //TNotifyIconData Wnd := Classes.AllocateHWnd(WndProc); uID := 1; uFlags := NIF_ICON or NIF_MESSAGE or NIF_TIP; uCallBackMessage := WM_NotifyIcon; hIcon := Application.Icon.Handle; s := HintStr; //StrLCopy(szTip, PAnsiChar(s), Length(s)); //Icon.OnClick:=onclik(TObject); StrCopy(szTip,PChar(s)); end; Shell_NotifyIcon(NIM_ADD, @NotifyIcon); end;

Delphi进度条(多线程),美观不卡界面,简单开启,定位,结束: 包目录(MyProgress): MyProgress.dcu //最终引用 MyProgressPackage.bpl //安装包 MyProgressPackage.bpi MyProgressPackage.dcp MyProgressPackage.lib 包安装(无需编译,直接安装): 将包目录(MyProgress)复制到目标安装目录 Delphi\菜单\Component\Install Packages\...选择包目录中的包文件 .\MyProgressPackage.bpl 添加路径: Delphi\菜单\Tools\Options\Environment Options\Delphi Optioins\Library\Library path: 添加包目录在工程中单元中引用: uses MyProgress 功能列表: 1.开启进度(标题,消息,透明度(0-255),是否同步任务栏,是否有边框) procedure StartPro(aTitle,aMsg:String; AlphaValue:Integer=0; IsSyncTaskbar:Boolean=True; IsHasBorder:Boolean=True);//显示动画 2.给养进度(标题,,消息):保持或更新进度指示,不调用则保持StartPro时的状态 procedure FeedPro(aTitle:String; aMsg:String='正在处理中, 请等待...'); 3.关闭进度 procedure ClosePro;

语言基础/算法/系统设计

16,748

社区成员

33,247

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章