Delphi里如何让程序锁定在桌面上，win+d都无法最小化

最新推荐文章于 2021-08-07 10:14:37 发布
最新推荐文章于 2021-08-07 10:14:37 发布
阅读量479 收藏
点赞数
原文链接：http://www.cnblogs.com/yzryc/p/6243919.html
版权 
procedure TForm29.FormCreate(Sender: TObject);
begin
Windows.SetParent(Self.Handle, FindWindowEx(FindWindow('Progman', nil), 0,
'shelldll_defview', nil));
end;

 

转载于:https://www.cnblogs.com/yzryc/p/6243919.html

lceBear
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
delphi releasecapture 禁止窗体移动_敬业签桌面便签软件电脑版怎么锁定位置无法移动...
weixin_39788960的博客
11-20 220
敬业签是电脑商务办公便签软件，其Windows桌面版支持锁定的功能，可将便签程序窗口锁定在电脑桌面的某一位置上无法移动，这篇文章的主要内容，小编就为大家演示下这个功能的使用方法，带大家了解下如何开启便签窗口锁定状态。1.打开电脑桌面上的敬业签软件，登录会员账号后进入便签程序窗口，点击程序左上角的头像图标打开系统设置窗口；2.在软件基本设置中找到“桌面嵌入”项，勾选此项前方的空白方块；3....
如何锁定屏幕?
CL
11-21 1924
在WindowsXP时工作时，我们经常要锁定计算机，当计算机被锁定后，只有重新登录才能够使用计算机，从而保证了计算机的安全。 但是，一般情况下我们需要锁定计算机操作时，都是按下CTRL+ALT+DEL（或者为Delete）键，然后再单击“锁定计算机”按钮来实现的， 这样操作起来不仅麻烦，而且弄不好就会造成系统重启。其实，我们完全可以使用以下两种方法来快速锁定计算机： 1.快捷方式法
Delphi编写的一款锁屏小工具
GuoGuoABC
08-07 311
Delphi编写的一款锁屏小工具,双击程序立即锁屏，木有界面的。解除锁屏密码：alt+空格。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; Timer2: TTimer
把窗体钉在桌面是如何实现的
蓝剑专栏
07-01 1967
把你的窗口的父窗口句柄设置为名称为Progman的窗口 的句柄就可以了。HWND hDesktop = ::FindWindow("Progman", NULL);//hDesktop = ::GetWindow(hDesktop, GW_CHILD);CWnd* pWndDesktop = CWnd::FromHandle(hDesktop);this->SetParent(pWndDesk
Delphi制作最小化到系统托盘的程序&TForm1.FormDestroy不执行的原因.zip_win10程序窗口最小化不见了
01-11
在Delphi编程中，开发人员有时需要实现一个功能，即当用户点击窗口的最小化按钮时，程序并不真正地最小化到任务栏，而是隐藏到系统托盘区域。这种功能可以使用户在不关闭程序的情况下节省桌面空间。标题提到的问题...
Delphi源码精讲：程序最小化运行及托盘图标+菜单实例..rar
04-20
然而，通过编程我们可以让程序在最小化时并不消失，而是隐藏到系统托盘区域。这样可以提高用户体验，因为用户仍然可以通过托盘图标与程序交互，而不会被挤出屏幕视线。在Delphi中，这通常涉及到TTrayIcon组件的使用...
Delphi 键盘钩子(Hook) + 程序最小化
07-17
为了使程序在最小化后依然运行，可以将窗口隐藏到系统托盘。这通常涉及创建一个托盘图标，并处理 `WM_systray` 消息。 总的来说，通过结合 Delphi 的键盘钩子功能和窗口管理函数，我们可以创建一个应用程序，它能够...
Delphi2007编译的程序在Win7下图标模糊的解决办法
09-04
在Windows 7操作系统中，由于其采用了更高级的 Aero 视觉效果，导致一些使用旧版开发工具，如 Delphi2007 编译的程序，在任务栏上显示的图标可能会出现模糊的问题。这个问题主要源于 Delphi2007 生成的应用程序图标...
DELPHI+chrome+替换WebBrowser让你的程序嵌入chrome浏览器.zip
03-12
Chrome不挑食，基本上什么系统都可以跑，而且速度那是飞快，所以C/S程序调用第三方的B/S程序或者网页时都考虑使用支持最新H5技术的内核，而Delphi的浏览控件那真心是不支持很多新的东西，而且还是微软的内核，各种的...
delphi 禁用win、alt_tab等其他组合键
08-28
在网上找到一个可以禁用win键的代码，但是不能禁用组合键，又找了几个代码，实现除win键处，其他alt_tab,ctrl_esc等组合键禁用
让窗体始终最大化（不能最小化）的Delphi实现..rar
05-12
让窗体始终最大化（不能最小化）的Delphi实现..rar
windows API 获取闲置时间实现锁定计算机和关机
07-03
通过windows API 获取闲置计算机的时间实现锁定计算机和关机。
delphi固定窗口大小
做减求空
10-16 3151
delphi 10.2 固定窗口大小 设置以下属性    BorderIIcons 只选择 biSystemMenu    BorderStyle 选择 Single  属性： BorderIIcons：  //-------------------- BorderStyle ：边框样式     优先级比上面的高 None               无边框 S
delphi程序不能最小化
海洋
06-19 1433
csdn的博客系统真是垃圾，我刚才写了很多结果没有保存上。郁闷死了。算了，只贴一段代码吧。解决在某种情况下窗口不能最小化的问题。     if IsIconic(Application.Handle) then    begin       DefWindowProc(Application.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);    end
Delphi 拦截/封锁 点击窗体右上角 最小化 最大化 层叠 关闭 按钮
uhjiok123的博客--- 菜鸟级人员
07-28 2224
type TFormManage = class(TForm) sbtn1: TSpeedButton; procedure FormShow(Sender: TObject); procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormDestroy(Sender
用 Delphi 开发一款桌面程序，不使用VCL，完全使用 windwos sdk的方式。要求如下： 1、程序包含多个窗口，但都不能在任务栏上显示图标；2、程序窗口始终显示在桌面上，不能被最小化。即使用户按下 WIN+D，程序窗口依然保持显示在桌面上。3、窗口始终置底，就是说即使用户点击我们的窗口，窗口不能被前置遮挡住其他程序的窗口。
最新发布
05-29
好的，按照您的要求，我为您提供一份 Delphi 使用 Windows SDK 开发的示例代码。这个示例代码包含两个窗口，一个主窗口和一个子窗口。主窗口不会在任务栏上显示图标，子窗口始终显示在桌面上且不能被最小化，而且始终置底。 首先，我们需要在 Delphi 中创建一个新的项目。在项目中添加两个窗口，一个主窗口和一个子窗口。然后，我们需要在主窗口的 OnCreate 事件中设置窗口样式，使其不在任务栏上显示。代码如下： ``` procedure TForm1.FormCreate(Sender: TObject); begin // 设置窗口样式，不在任务栏上显示 SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) or WS_EX_TOOLWINDOW); end; ``` 接下来，我们需要在主窗口的 OnShow 事件中创建子窗口，并设置子窗口的样式，使其始终显示在桌面上且不能被最小化。代码如下： ``` procedure TForm1.FormShow(Sender: TObject); var hwndChild: HWND; begin // 创建子窗口 hwndChild := CreateWindowEx(WS_EX_TOOLWINDOW or WS_EX_TOPMOST or WS_EX_TRANSPARENT or WS_EX_LAYERED, PChar('Static'), nil, WS_POPUP or WS_VISIBLE, 0, 0, Screen.Width, Screen.Height, Handle, 0, HInstance, nil); // 设置子窗口样式，始终显示在桌面上且不能被最小化 SetWindowLong(hwndChild, GWL_EXSTYLE, GetWindowLong(hwndChild, GWL_EXSTYLE) or WS_EX_TOOLWINDOW or WS_EX_TOPMOST); end; ``` 最后，我们需要在子窗口的 OnCreate 事件中设置子窗口的样式，使其始终置底。代码如下： ``` procedure TForm2.FormCreate(Sender: TObject); begin // 设置窗口样式，始终置底 SetWindowPos(Handle, HWND_BOTTOM, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE); end; ``` 这样，我们就实现了一个包含两个窗口的 Delphi 桌面程序，主窗口不会在任务栏上显示图标，子窗口始终显示在桌面上且不能被最小化，而且始终置底。

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值