我用showwindow函数隐藏了桌面和任务栏,为什么只要双击鼠标,开始菜单会弹出?
得到句柄是用findwindow函数.
如果桌面不隐藏,就不会出现上述情况.和任务栏显示与否没关系.
大家有没遇到这个问题?
得到句柄是用findwindow函数.
如果桌面不隐藏,就不会出现上述情况.和任务栏显示与否没关系.
大家有没遇到这个问题?
解决方案 »
- Delphi串口双通道实时循环采集问题
- TWordApplication调用WORD的问题?
- 这个过程错在哪?怎样改?
- 请问各位大侠如何创建一个动态的数组.急呀.
- 救急呀!!pos端串口通信!在线!!!1
- 我不想哭的,可泪如滔滔江水,一发不可收拾。。。。。。。。。。。
- 我们公司的数据库在台北,广州的用户要访问它,该用什么方案解决呢?
- 如何实现报表的精确控制
- 请教各位,我装了个控件,运行时,运行不下去,说是find none *.dcu,
- RichEdit的EN_VSCROLL和EN_HSCROLL
- 报表的总页数如何显示?报表上的字段如果很长,怎样让它自动换行显示!
- Quickrep报表在窗体SHOW时有数据,而预览时无数据,如何解决该问题?
2.将Desk.exe的快捷方式移到任务栏上
3.运行Desk.exe奇数次隐藏桌面图标,偶数次显示桌面图标
4.运行Tray.exe奇数次隐藏任务栏,偶数次显示任务栏
{源代码如下}
program Desk;
{=============================}
{========桌面隐藏/显示========}
{============彭 涵============}
{============v 0.1============}
{=============================}
uses
Windows,
IniFiles,
SysUtils;{$R *.res}
var
hDesktop : THandle;
MyIni: TIniFile;
bShow: boolean;
begin
hDesktop := FindWindow('ProgMan', nil);
MyIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Desk.ini');
with MyIni do
begin
bShow := ReadBool('SETUP', 'DESKTOP_SHOW', False);
if bShow then
ShowWindow(hDesktop, SW_SHOW)
else
ShowWindow(hDesktop, SW_HIDE);
WriteBool('SETUP', 'DESKTOP_SHOW', not bShow);
UpdateFile;
Free;
end;
end.program Tray;
{=============================}
{=======任务栏隐藏/显示=======}
{============彭 涵============}
{============v 0.1============}
{=============================}
uses
Windows,
IniFiles,
SysUtils;
{$R *.res}
var
hTray: THandle;
MyIni: TIniFile;
bShow: boolean;
begin
hTray := FindWindow('Shell_TrayWnd', nil);
MyIni := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'Desk.ini');
with MyIni do
begin
bShow := ReadBool('SETUP', 'SHELLTRAY_SHOW', False);
if bShow then
ShowWindow(hTray, SW_SHOW)
else
ShowWindow(hTray, SW_HIDE);
WriteBool('SETUP', 'SHELLTRAY_SHOW', not bShow);
UpdateFile;
Free;
end;
end.