老问题!程序运行的时候怎么将windows的任务栏完全屏蔽掉!不能被激活!(100分)

  • 主题发起人 主题发起人 ydiandian
  • 开始时间 开始时间
Y

ydiandian

Unregistered / Unconfirmed
GUEST, unregistred user!
使得程序运行的时候不能切换到其他任务,其他的程序。
涉及的API函数有哪些,给一个小子最好。
 
你切换用Alt+Tab,所以只需要屏蔽掉这两个键就可以了。
 
在你的Form创建过程(oncreate)中加入:
; ShowWindow(FindWindow('Progman', nil), SW_HIDE);
; ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_hide);
; SystemParametersInfo(Spi_screensaverrunning,1,@li,0);
; SetWindowLong(Handle, GWL_STYLE,
; ; ; ; ; ; ; ; GetWindowLong(Handle,GWL_STYLE) AND
; ; ; ; ; ; ; ; NOT WS_CAPTION);

不过可千万别忘了在退出过程中加入这个:
SystemParametersInfo(spi_screensaverrunning,0,@li,0);
ShowWindow(FindWindow('Progman', nil), SW_Show);{隐藏}
ShowWindow(FindWindow('Shell_TrayWnd',nil),SW_show);


其中li为integer;
 
就是楼上说的啦!
 
既然大家都这么说,应该没问题的。
谢谢楼上的兄弟!
 
天啦!分都派了,代码加入后,
程序运行连窗口的标题栏都没有了,
最下面还留下一个空行,
这不是我想得到的效果
尤其的标题栏都没有了!
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部