delphi隐藏任务栏

Posted 2023-05-04

我只想隐藏任务栏 窗口不隐藏 怎么做

多给点分

procedure Tform1.Button1Click(Sender: TObject);
var
wndHandle: THandle; //用于存储指定窗口的句柄
wndClass: array[0..50] of Char; //用于存储类名
begin
strPCopy(@wndClass[0], 'Shell_TrayWnd'); //获取任务栏类名
wndHandle := FindWindow(@wndClass[0],nil); //获取任务栏窗口的句柄
ShowWindow(wndHandle, SW_Hide); //隐藏Windows任务栏
end; 参考技术A @和[0]同时使用是比较老的Delphi版里的用法。
Delphi2009以后可以直接用@来取PChar的首地址。
另外，你发的这段代码有些累赘，用FindWindowEx就不需要字串进行周转了。

Windows Mobile 隐藏任务栏和菜单栏

【中文标题】Windows Mobile 隐藏任务栏和菜单栏

【英文标题】：Windows Mobile hide Task Bar and Menu Bar

【发布时间】：2012-04-16 20:14:45

【问题描述】：

在 Windows Mobile 设备上，我想隐藏任务栏和菜单栏。我从谷歌搜索中获得了以下代码，但它并没有隐藏任务栏上的图标。如果可能的话，我想在隐藏任务栏时隐藏所有图标。

void TaskBar(BOOL lock)

    MessageInfo(TEXT("inside TaskBar()"));
    if(lock == TRUE)
    
        CWnd* pWnd = CWnd::FindWindowW(TEXT("HHTaskBar"), NULL);

        if(pWnd)
        
            pWnd->ShowWindow(SW_HIDE);
            pWnd->EnableWindow(FALSE);
        
    
    else if(lock == FALSE)
    
        CWnd* pWnd = CWnd::FindWindowW(TEXT("HHTaskBar"), NULL);

        if(pWnd)
        
            //pWnd->ShowWindow(SW_SHOW);
            pWnd->ShowWindow(SW_SHOWNORMAL);
            pWnd->EnableWindow(TRUE);
        
    

为了隐藏菜单栏，我在谷歌上发现我可以通过注册表来做到这一点。我有 Windows Mobile 6.5.3，但这些注册表不存在：

[HKEY_LOCAL_MACHINE\Software\Microsoft\Shell\BubbleTiles]
"TextModeEnabled"=dword:00000001
"HardwareStartKeyEnabled"=dword:00000001
"HardwareDoneKeyEnabled"=dword:00000001

那么我怎样才能隐藏菜单栏呢。

谢谢。

【参考方案1】：

至于任务栏使用：

SHFullScreen(hWnd, SHFS_HIDETASKBAR);
SHFullScreen(hWnd, SHFS_HIDESIPBUTTON);
SHFullScreen(hWnd, SHFS_HIDESTARTICON);

其中 hWnd 是您的主框架窗口句柄

我不确定菜单栏，可以通过不在资源中定义菜单或将应用程序窗口移动到其上方来隐藏它。

【讨论】：

谢谢。似乎对于菜单栏，我必须创建注册表然后重新启动设备就可以了。

还有什么我需要包括的吗？我的 Windows Mobile 6.5 SDK 不知道函数。错误 C3861: 'SHFullScreen': identifier not found